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l. ABSTRACT 


OGRAM COLLECTS STATISTICAL INFORMATION 


CHU oy acrid EU nt 


NUMBER OF DIFFERENT 
Panne Teas “CONTROLLING THE baTA PATTERNS 
HE NUMBER OF BYTES PER BLOCK (RECORD) AND 
Te NUMBER OF BLOCKS PER FILE. 


2. REQUIREMENTS 


2.2 STORAGE 


THIS PROGRAM REQUIRES APPROX. 4K STORAGE. 
2.3 PRELIMINARY PROGRAMS 


NDEG-11-027A8 

NOEC-11-D 188 
HAINDEG- 11-0 

Pe pers 


USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
OR A CASSETTE TAPE. 


4, STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 


SEE S.1. 
4.2 STARTING ADDRESSES 


NORMAL STARTING ADDRE 
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1a 4.3 PROGRAM 8 OPERATOR ACTION 

14? 

148 . LOAD PROGRAM INT NORY ($6 CTION 3.) 

4 ; A WRITE ENA A N BOTH DRIVES 

E kf UE RUPEE IR 

151 4. SET SUITCHES (SEE SECTION 4.1) 

153 S. PRESS STAR 

isa #%% NOTE: IF wens THE SOFTWARE SalTcH REGISTER THE 

1 PROGRAM WILL TYPE “SWR=XXXXXX NEWS" AFTER TYPING 
THE NAME OF THE PROGRAM. 


4.3.1 ORIVE SELECTION 


STARTING PROGRAM AT WILL RESULT Tan fu AUTOMATIC 
SELECTION OF DRIVES “A” “B” TO BE TEST 


STARTING THE PROGRAM AT 204 OR 210 ALLOWS THE OPERATOR 
TO SELECT THE DRIVE(S) TO BE TESTED. 


THE PROGRAM WILL TYPE “ORIVE(S)?". 


EITHER OR BOTH DRIVES CAN BE SELECTED BY TYPING “A” AND/OR 
“B” FOLLOWED BY A CARRIAGE RETURN. 


4.3.1.1 DRIVE SELECTION EXAMPLES 


AZINASSESFRESHL SSS 


Ja 
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ADDRESS SELECTION 
STARTING THE PROGRAM AT 210 ALLOWS THE OPERATOR 


TO CHANGE THE “CONTROL AND STATUS” AND “DATA ere. 


Se etaite ADDRESSES, THE VECTOR ADDRESS AND T 
PRIORITY LEVEL. 


SSRRIOGLSSETEREERES | 


HE PROGRAM WILL ASK FOR THE DRIVES TO BE TESTED AS PER 
Me -1. AFTER THE DRIVES HAVE BEEN SELECTED IT WILL ASK 


BUS ADDRESS OF THE CONTROL AND STATUS REGISTER (TACS) 
VECTOR ADDRESS 
PRIORITY LEVEL 


AND THE OPERATOR MUST RESPOND WITH THE DESIRED PARAMETER 


Hen ALL Parere Tens Hive Geen GEV TReD The, PROGRAR 


Hy 
WHICH The THE BPERATOR RE WITH 8 A OR 
“CARRIAGE RETURN” FOR “ peSPahors ELSE IS a “Ho”. 


ADDRESS SELECTION EXAMPLES 


Bones 


DRIVES(S) A 
TACS? 4 
VECTOR? 


PRIORITY? 6 
pes ACS=177S00 TADB=177S02 VECTOR=C00260 PRIORITY=000300 


ide ) A,B 


ORITY 
TAGS=177470 TADB=177472 VECTOR=000260 PRIORITY=000300 


turururuofrurorururforu 
0 0 0 0 a ee 
WONMU£WIM-O 
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OPERATING PROCEDURE 


F THE DIAGNOSTIC IS RUN ON A CPU WITHOUT A SWIT 


ape: THE cee suivcr Set Ons AS THE HAROKPRE be Gy REGISTER. 


S NOT EXIST OR IF curten 


ao IT CONTAINS BLN eS (177777) THEN THE SOF TRE” 


CONTROL: 
THIS PROGRAM ALSO aes THE DYNAMIC LOADING OF THE SOFTWARE SWITCH 
REGISTER (LOC. 176) FROM THE TTY. THIS CAN BE ACCOMPLISHED BY 


DOING THE FOLLOWING: 


) TYPE CONTROL G <?G>; THIS WILL ALLOW THE TTY TO ENTER DATA INTO 
LOC. 176 AT SELECTED POINTS WITHIN THE PROGRAM. 


2) pe. OCH MOLL Teen re Ma mr (XXXXXX IS THE OCTAL CONTENTS 


3) AFTER THE ’*NEW="’ HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 


0 ee oe Le INTO LOC. 176 FOLLOWED BY A <CR>. 
FTHEEN 0-7 WILL BE ACCEPTED AND ONLY & NUMBERS 


te eae Fao I He FIRST rey DEPRESSED THE SOFTWARE SWITCH 
ISTER CONTENTS WILL NOT BE CHANGED. 


B) es CONTRO Reel IS DEPRESSED THEN THE — WILL SEND YOU 


WITH al 10>=0 THE PROGRAM WILL PRINT OUT ON 


ERRORS AND TEST. 
HE SWITCH SETT coUTINGS Ane: 
Suclap=L- Lope 
(131... eee PP ROUTS 
Sucoa=t eoeR 
=] -- AL 


Sue) = »=1...AT ot eT Seat ) GO to" SEND-OF -TEST™ 


(1:0>=10=WRITE ONLY 


:0> 
aps TeREAD rT 
<1: OL LeREAD ONLY 





a ee er ee EY CE ER 





He 
578 
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§.2 SUBROUTINE ABSTRACTS 


§.2.1 SCOPE 


INSTRUCTION) IS PLACED 


THIS SUBROUTINE CALL (VIA AN IOT 
IN INSTRUCTION SECTION OF THE 


AT AN OPTIMUM POSITION IN THE 
SC ORNAT” » READONLY” AND “WRITEONLY” CODE. 


a3 BENG ah TE B vi " WHE TYBEC Or PAGS BET ING ¢ BERrOnreD D. 
Pre UES ROUTINE SUPPORTS THE S/W SWITCH REG FUNCTIONS 
5.2.1.1 FORMAT PASS SCOPE LOOP 
‘; SETUP FOR A WRITE 


5: Bs err wore GAP 


s: 

6. REPEAT STEPS 1-S UNTIL “EOT” 
5.2.1.2 READONLY PASS SCOPE LOOP 

1. SETUP FOR READ 

2. READ 

3. CHECK FOR SYNC & DATA ERROR 

4. BACK BLOCK GAP 

S. REPEAT STEPS 2-4 INDEFINITELY 
5.2.1.3 WRITEONLY PASS SCOPE LOOP 

3: i at FOR WRITE 

3. REPEAT STEP 2 UNTIL “EOT™ 

5.2.2 TRAPCATCHER 


SERENCE IS REPEATED FROM LOC. 0 TO LOC. 


A” “HALT 776 
TO éA CH ANY UNEXPECTED TRAPS. THUS, ANY UNEXPECTED TRAPS WILL 


HALT AT THE DEVICE TRAP VECTOR +e. 
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321 i 5.2.3 ERROR 
322 =-- 


323 
THIS SUBROUTINE CALL (VIA A EMT INSTRUCTION) IS USED TO REPORT 
ALL ERRORS. (REFER TO 6.) 


5.2.4 TRAP 


8 


BY_THE TRAP INSTRUCTION. 


A NUMBER OF SUBROUTINES ARE CALLED BY 
THE STARTING ADDRESS OF THE 


D 
FOLLOWING IS THE CALLS USED AND THE 
ROUTINE. 


5.2.4.1 TYPE ($TYPE) 
TYPE AN ASCIZ STRING ON THE TTY 
5.2.4.2 ROCHR(SROCHR) 
READ A SINGLE ASCII CHARACTER FROM THE TTY 
5.2.4.3 ROLIN(SRDLIN) 
READ AN ASCII STRING FROM THE TTY 


FRESH SoA ORS Beene 






























5.2.6 THE FOLLOWING SUBROUTINES ARE CALLED BY A JSR’. 


sas | 
won) 


§.2.6.1 A20CT 
THIS ROUTINE CHANGES AN ASCII STRING TO AN OCTAL NUMBER. 
5.2.6.2 ASKDRV 


THIS ROUTINE IS USED TO ASK THE OPERATOR WHICH DRIVE(S) 
ARE TO BE TESTED 


5.2.6.3 ASKADR 


: THIS ROUTINE IS USED TO INPUT THE ADDRESSES OF THE “TACS” ‘ 
AND THE VECTOR TO USE. 


5.2.6.4 TYPERR 
THIS ROUTINE IS USED TO TYPE OUT THE “ERROR” DATA 
5.2.6.5 CSRERR 


| RU ARe 15a en 


AND STATUS" REGISTER TO 
DETERMINE THE TYP E OF ERROR AND 
TAKE THE APPROPRIATE ACTION. 


5.2.6.6 SETUPW 


THIS ROUTINE IS USED TO SETUP THE 
PARAMETER K_AND THE WRITE 
BUFFER BEFORE STARTING A “WRITE” FUNCTION 


5.2.6.7 FILL 
USE TO FILL THE TH BUFFER 


THIS ROUTINE IS USED TO SETUP THE 
AMETER BLOCK BEFORE DOING A 
“READ” FUNCTION. 


5.2.6.9 SYNCK 


THIS ROUTINE IS CALLED AFTER 
ORM READ”. 

IT CHECKS THE FIRST FOUR BYTES 

OF THE DATA TO INSURE THAT THEY 

CONTAIN THE PROPER FILE AND 

BLOCK NUMBERS. 
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Pe 5.2.6.10 DATCMP 
404 THIS ROUTINE IS USED TO CHECK THE 
40S DATA _IN THE READ BUFFER TO INSURE 
406 IT IS CORRECT. 

407 

408 

409, 

40 5.2.6.11 CNTSFT 

41d THIS ROUTINE IS USED TO 
413 COUNT SOFT DATA ERRORS 

4i5 S.2.6.12 CNTHRD 

417 THIS ROUTINE IS USED TO 
418 COUNT HARD DATA ERRORS 

420 5.2.6.13 SAVRGI OR SAVREG 

Hee ROUTINE TO SAVE ALL THE REGISTERS 
Hed 5.2.6.14 CASSETTE PRIMITIVE 

42 THIS IS THE CASSETTE DRIVER 

| 428 S.2.6.15 CASINT 
430 CASSETTE INTERRUPT HANDLER 

| 432 5.2.6.16 DBCD 

| 434 CHANGES A DOUBLE LENGTH BINARY 

435 ) NUMBER TO A DECIMAL ASCIZ STRING ' 

| 432 5.2.6.17 SBCD 

| 3g CHANGES A SINGLE LENGTH BINARY 

| #40 NUMBER TO A DECIMAL ASCIZ STRING. 

| He 5.2.6.18 SUPRES 

ay TYPES A DECIMAL ASCII STRING 

| HHS SUPPRESSING LEADING ZEROS. 

HH? 5.2.6.19 TYPF 

| aoe USED TO TYPE THE ASCIZ STRING 

#50 IMMEDIATELY FOLLOWING THE CALL. 

: Hee S.2.6.20 TPDRV 

458 TYPES THE DRIVE TO BE TESTED 
w4 5.2.6.21 EXAM 
457 


"a ea en ee ee 







} 
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48 THIS ROUTINE EXAMINES THE SELECTED DRIVES 
| TO INSURE THEY ARE AVAILABLE FOR TESTING. 
Hh 5.2.6.22 SB20CT 

) TYPES AN OCTAL NUMBER 


eee 


Geen roRes 


= b= 0 0 oe 


oratrtataliaia alata) 
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6.1 


6.1.1 


6.1.2 


6.1.3 


6.2 


6.2.1 
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ERRORS 


THERE ARE A Nokes OF ERRORS THAT CAN OCCUR IN THIS 
PROGRAM. WHEN AN ERROR IS ENCOUNTERED "e CALL TO 

THE ERROR (ERROR) ROUTINE IS MADE AND IF SW<13> IS NOT 
SET AN ERROR MESSAGE PERTAINING TO THE ERROR WILL BE 
TYPED. EACH ERROR TYPE OUT WILL CONTAIN THE FOLLOWING: 
1. AN ERROR MESSAGE 

2. A DATA HEAD 

3. A DATA STRING 


REFER TO THE LISTING UNDER SERRTB FOR THE DIFFERENT 
ERRORS THAT CAN OCCUR. 


ERROR TYPES 


THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE 
(3) CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS: 


PRETEST ERROR 


THESE ERRORS WILL 
THE DATA RELIABIL 


NON-FATAL ERROR . 
THESE ERRORS WILL BE DUE TO “CRC” OR “DATA” FAILURES 
WHICH WILL BE REPORTED AS THEY OCCUR. AFTER REPORTING 
THE ERROR THE PROGRAM WILL CONTINUE TESTING. 

FATAL ERROR 
THIS TYPE OF ERROR WILL BE THE RESULT OF ANY KIND 


OF ERROR THAT CAUSES THE PROGRAM TO LOSE TRACK OF THE TAPE 
ast ee ad OR THE MAXIMUM NUMBER OF DATA ERRORS HAVE 


4 DETECTED BEFORE TRYING TO TEST 


ITY OF THE TALI/TUEO. 


THIS ERROR WILL BE _REPCRTED WHEN IT OCCURS, THEN THE PROGRAM 
WILL ABORT THE TEST AND GO TO THE “END- -OF-TEST" TYPEOUT. 


DATA ERRORS 


THERE ARE TWO TYPES OF DATA ERRORS 
THAT CAN OCCUR WHICH ARE 
DEFINED AND EXPLAINED AS FOLLOWS: 


SOFT ERROR 
A SOFT ERROR IS BY DEFINITION og “CRC” OR e ontae DATA” 


ERROR THAT OCCURS WHILE READING A BLOCK OF 
A SOFT ERROR WILL INVOKE A REREAD OF THE BLOCK. 





4 
=r 
~ 


ONO 


a ttt ttt tt 


uy 
tS 


apreneney 


uw 
ib 
N 


ir 
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6.2.2 HARD ERROR 


A HARD ERROR IS DEFINED AS ANY 
“CRC” _OR “READ DATA” ERROR THAT OCCURS 
ON THE te. “Rt OF A BLOCK 
OF DATA AND CAN NOT BE READ 
CORRECTLY UITHIN THREE (3) RETRYS. 
6.3 ERROR RECOVERY 


6.3.1 PRETEST ERROR 
WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THEN DEPENDING 


ON HOW THE PROGRAM WAS STARTED IT WILL ASK FUR THE DRIVES AND 
ADDRESSES FOR TESTING OR RETURN TO MONITOR. 


6.3.2 NON-FATAL ERROR 


WHEN THIS TYPE OF ERROR gcetrS IT WILL BE REPORTED AND 
THE PROGRAM WILL CONTINUE IN TEST. 


6.3.3 FATAL ERROR 


WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED. THE 
PROGRAM WILL ABORT THE TEST AND GO TO THE “END-OF-TEST” TYPEOUT. 


RESTRIC1 IONS 


BEFORE STARTING THE PROGRAM THE OPERATOR MUST INSURE THAT A 
Fooce Tete Lb LOADED AND WRITE ENABLED IN THE DRIVE(S) 


8. MISCELLANEOUS 


FSG ESR IUS 


SHH 


8.1 EXECUTION TIME 


TESTING THE TALI/TUGO TO SPECIFICATION TAKES APPROXIMATELY 
A 2 HOURS 30 MINUTES WITH EACH DRIVE TAKING 75 MINUTES. 


8.2 STACK POINTER 


FREE SoON CE aS 


STACK IS INITIALLY SET TO 1109. 


“ 


5 
a 





 O2T i RES .P 
5&8 
S63 8.3 END OF TEST 
S7o ecccececcoan 


$71 
> ; WITH Au SWITCHES ON A_“O" THE END OF TEST TYPEOUT With OCCUR 
S73 WHEN THE PROGRAM COMPLETES 18 TAPE PASSES FROM “GOT” TO 





a 
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ae "EOT" ON THE DRIVE UNDER TEST OR A FATAL ERROR OCCURS. 
S78 ©.3.1 EXAMPLE OF AN END-OF TEST TYPEOUT 
E>9 44% END-OF-TEST xxx 
578 SOFT ERRORS=0 
536 HARD ERRORS= 
58) BYTES READ= 1471488 
582 BYTES WRITTEN=369000 
583 TAPE PAS 
toy FILES/PaSS=12 
BES BLOCKS/FILE=16 
87 8.4 DRIVE COMPATIBILITY 
oss 
590 THE COMPATIBILITY BETWEEN DRIVES CAN BE TESTED BY 
£9] DOING A =PORNAT" PASS ON ONE DRIVE AND THEN READING IT 
33 ON ANOTHER DRIVE. 
| Pat 8.4.1 DRIVE COMPATIBILITY PROCEDURE EXAMPLE #1 
ESE 
537 THIS EXAMPLE FORMATS ON DRIVE A AND READS FROM DRIVE B 
| 33 8.4.1.1 "FORMAT" DRIVE “A” 
| BO i. A WRITE ENABLED TAPE IN DRIVE “A” 
; 802 Ey DRIVE “B” IS EMPTY 
693 3. LORD ADDRES 
| er 4: SET Sw08 TO “1” ALL OTHERS TO “CO” 
| 605 S. PRESS START 
656 6. PROGRAM WILL PERFORM A “FORMAT” PASS ON DRIVE “A", TYPE 
| 607 “END-OF-TEST™ STATISTICS AND HALT 
| £95 8.4.1.2 “READ” DRIVE “B” 
| 641 1. REMOVE TAPE FROM DRIVE “A” AND PLACE IT IN DRIVE “8” 
| 612 ; LOAD SS 200 
613 3. ET SHO3, SWOS, SWO7 AND SWOD TO A "1" ALL OTHERS 
615 4. PRESS START 
| 4 S. PReckAN WILL PERFORM A “READONLY” PASS ON DRIVE 
/ bi “B". TYPE LE CO STEST™ STATISTICS AND HALT. 
i 
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8.4.2 DRIVE COMPATIBILITY PROCEDURE EXAMPLE se 


THIS EXAMPLE READS KNOWN GOOD TAPE(S) 
8.4.2.1 “READ” 


1. PLACE THE KNOWN GOOD TAPE(S) IN THE DRIVE(S) TO 
3 TESTED. (NOTE: i MIGHT BE WISE TO HAVE THE 

APE(S) WRITE LOCKED. ) 

LOAD ADDRESS 200 

BT WO8, SWO7 AND SWOO TO A “1” ALL OTHERS 

PRESS START 

PROGRAM WILL PERFORM A “READONLY” PASS AND TYPE 

“END-OF-TEST™ STATISTICS ON DRIVE(S) TO BE TESTED. 


8.5 DATA FORMAT 


THE DATA FORMAT USED IN THIS PROGRAM WILL RESULT IN 
tS allen ELEVEN (11) FILES OF 6192 BYTES TO BE WRITTEN 


ao 
~ 
woo 


ECR R Re Ene tee vanes 


a 


o 
NJ 
Ww 


eI 
Ye 8.5.1 FILE STRUCTURE 
B44 EACH FILE WILL CONSIST OF SIXTEEN (16) BLOCKS OF DATA, WITH 

Bue EACH BLOCK CONTAINING AN UNIQUE DATA PATTERN. 

a4 8.5.2 BLOCK STRUCTURE 
£49 EACH BLOCK WILL HAVE AN "ID" CODE AS THE EIRST FOUR (4) 
£50 Both DATA. THIS "ID" WILL BE THE FILE NUMBE R AND 
651 OCK NUMBER AND THEIR COMPLERERTS. THE DATA FOLLOWING 
B52 . HE "ID" IS A PATT THAT REPERTS I TSELF EVERY EIGHT (8) 
63 ie FOR THE LENGTH OF T 

| B55 8.5.3 BLOCK SIZE AND PATTERN 

| 657 BLOCK BLOCK 

cre NUMBER: SIZE 

673 mermmmm «OO i i ~~ itt: mn me mm 

|. bb] 0 1024 

| 63 
6E4 

| 6S 

«BB 

| «668 
669 

| 670 1 S12 

| 


ee ens o enme ee te ere 0 re ee ne eee ree oe ee 


‘ 
i 
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8.5.3  (CONT.) 


SRIFREERESSEGRRLOR TRIP REDRESS 


~“ 
~_ 
Oo 


Seeveowass 


ve TA RELIABILITY MAINDEC-11-D2TRE-B 
botkeB Pi 


731 


pay 


~~ 


ROR ARAN RRARR Ata Mabaa aad uta Luee eee ERP RENN RN 
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8.5.3  (CONT.) 


10 


ll 
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err PATTERN 


64 


1024 001 


128 001 


SSoea 


17 


020 
357 
337 
100 
277 
i7 





Pad 


SONS TERE Se URR Loe OBER ES 


coca coamacdmac 
tb 2b = h—0 bas P-o & 4G 2 


OC NOUl£ wre 


FERNS Oe Ves 
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8.5.3 (CONT.) 


BLOCK BL OER 8 
NUMBER SIZE P 


13 1024 


8.6 TEST TYPEOUT 


THE FOLLOWING EXAMPLE SHOWS A TYPICAL TYPEOUT WHERE BOTH 
DRIVES WERE TESTED AND NO ERRORS OCCURRED. 











HO2 


-_ 
bat] 
uJ 
3 
cz 
a 
tw 
_ 
= 
ate 
wo 
° 
a. 
tas 
. 
w 
Cc 
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ILL BE TESTED 


id 
A 
= A 
a 
A 
a 
a 
A 
= 
A 
A 
a 
A 
a 
A 
a 
A 
A 
x 


O'S SES See ee eeeey 


Lad 4 4 4 0 46 a a 


petatat-t~1-t=1-{-{-t-t-1-{-1--1-=1 =) 


Secesessessessssess 


ous seeeee 
ze 
¢ ad — 
sbageteasseeeatesee 
SESILEPIEELETELEIET 
(2 2 2 2 £2 fe ee Se eee Se 





tht totobatotbtattoto 


0 4 OF 0 8 4 4 4 4 4 04 4 4 4 00 0 0 


SSSSSSSSSSSSSSSSSS * 
ginagugiegigiiizg: 2 


bsseieeeelertasss oe 


SSEEESELTIETIEETES 


poids 


Mibitee ee ee se ee uiiuunMir ee RET TET SSS ASS SS Cpt ttt ta 


ooo 


nnn netlist nna atgeetetieneinnctn 
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gap TAPE PASSES=18 

'  Bg5 FILES/PASS=12 

BSH BLOCKS/FILE=16 
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TREB. 

B3P $. PROGRAM DESCRIPTION 

837 

838 THIS PROGRAM IS DESIGNED AROUND pHs Pore ROUTINES 
893 THAT WILL Ms de omEo TO of tn /OR_FROM rs! U&0 
900 GOING FROM “BOT “EOT” OF THE TAPE. EAC W OF THESE 
901 ROUTINES MAKE USE 4 COMMON SUBROUTINES TO MANIPULATE 
902 TAPE MOTION, KEEP oT OF TAPE Epes Than SETUP DATA 
303 BUFFERS AND’ CHECK, COUNT AND REPO 

one THESE ROUTINES ARE Der INED AND EXPLAINED BELOW. 

306 9.1 FORMAT PASS 

Re ee gee Xe 

909 THIS IS A WRITE, BACKSPACE AND READ ROUTINE STARTING AT 
gio “BOT” THE FOLLOWING PROCEDURE IS PREFORMED: 

Sle 1. WRITE A BLOCK OF DATA 

$13 @. BACKSPACE A BLOCK GAP 

$14 3. READ THE BLOCK 

915 4. CHECK FOR SYNC ERROR 

916 S. CHECK FOR DATA ERROR 

917 6. REPEAT oe 1-5 SIXTEEN TIMES 

918 7. WRITE A FILE GAP 

$19 8. REPEAT STEPS 1-7 UNTIL “EOT” 





9.2 WRITEONLY PASS 





THIS IS A WRITE ONLY ROUTINE. STARTING AT “BOT” THE 
FOLLOWING PROCEDURE IS PREFORMED: 


1. WRITE SIXTEEN BLOCKS OF DATA 
e. WRITE A FILE GAP 
3. REPEAT STEPS 1 & 2 TO “EOT” 


9.3 READONLY PASS 


THIS ua? R re ONLY ROUT INE cane REQUIRES THAT A “FORMAT” 
OR “WRITEONLY™ PASS Y BEEN PREFORMED. STARTING 
AT “BOT” THE FOLLOWING PROCEDURE IS PREFORMED: 


1. READ A BLOCK OF DATA 

CHECK FOR SYNC ERROR 

CHECK FOR DATA ERROR 

REPEAT i pi XTEEN (16) TIMES 
F FILE GAP 


REPEAT piers. 1-5 UNTIL THE LAST BLOCK 
OF THE LAST FILE HAS BEEN READ. 


wet TAL! DATA RELIAB LITY MAINDEC-11-DZTAE-B 
: IGHT (C) 1973 1376 
; *0IGITAL EQUIPMENT C tone 

: #MAYNARD , 


Be SEP SSPE ow RLU pant 
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OZTAEB.Pil 


951 ;* 

ees 5 RPROGHTA BY JIM LACEY 

954 ;#THIS PROGRAM RESEMBLED ype THE Poem MAINDEC SYSMAC 

eee 5 EPACKAGE (MAINDEC-11-DZGAC-CO), MAR 21, 1976. 

957 : ; RERKELESELELESSEALELLSES LALA SLE SEE SL SEES LALLA ELLLLAA LASSE ERE LES 
958 5 5 RERSKRAELAERESESSAESALAALELE LA LAALEAALLELLLES AES ELE LAL ELA ESLELE 
re : oo icra npn Sap RET NRTA > SR RCN NE IR 
961 . . 

ees GENERAL INFORMATION ABOUT THE TAL1/TUBO CASSETTE 


ADDRESS MNEMONIC DESCRIPTION 


S64 
965 
= 
$58 777500 TACS | CONTROL AND STATUS REGISTER 
953 777502 TADB DATA BUFFER REGISTE? 
370 260 TAVEC INTERRUPT VECTOR 

. 72 TACS REGISTER DESCRIPTION 
974 INIT 
378 BIT NAME STATE READ AND/OR WRITE? 
977 
978 iS ? READ ONLY 
979 149 BLOCK CHECK ERROR 0 READ ONLY 
980 13 AR LEADER ? READ ONLY 
oe: 12 WRITE LOCK ? READ ONLY 
Be i ILE GAP p READ ONLY 
1 TIMING ERROR READ ONLY 

gs 09 OFF LINE ? READ ONLY 
ges O08 UNIT SELECT 0 READ/WRITE 
986 07 TRANSFER REQUEST 0 AD ONLY 
987 06 INT T 0 READ/WRITE 
gee os READY 1 ONLY 
989 04 ILBS 0 READ/WRITE 
990 03 FUNCTION BIT O2 0 READ/WRITE 
931 O2 FUNCTION BIT O1 0 READ/WRITE 

| 998 01 FUNCTION BIT 00 0 READ/WRITE 
993 Od TE-F ILE~GAP 
994 1=WR 
99s 2=READ 
gag 3=BACK FILE GAP 
997 Y=BACK SPACE BLOCK GAP 
gsc =SPACE FORWARD FILE GAP 
ag B=SPACE FORWARD BLOCK GAP 
1000 7=REWT ; 

| 1001 00 GO BI 0 WRITE ONLY! 

| 

| 
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OPERATIONAL SWITCH SETTINGS 


ities. DATA RELIABILITY 


0 0p op -> 
oo 
as & @ 


33 Sone 


ONO0OO9V00000 
o— bb 9 -< ~~ B= 6 pp 
W010 U1 .£ GIT 


SEBESNR RRS 


8 


RRRARRRRES EP PEE CCR BERS Siteteiotetstetat= 


oO 
e 


A 
N 


~SBTTL OPERATIONAL SWITCH SETTINGS 


;* 

i SWITCH USE 

+ % 15 HALT ON ERROR 

;* 14 LOOP ON TEST 

:# 13 INHIBIT ERROR TYPEOUTS 

+ 10 DING 

: % 3 HALT AFTER NEXT “END-OF-TEST" TYPE OUT 
1% g NEXT "EOT" GOTO “END-OF-TEST” 
x ? PERFORM AS PER “par :0) 

: OO=F ORM 

O1=REAOON ONLY 

; 1 T=READONLY 


-SBTTL BASIC DEFINITIONS 


bracket ADDRESS OF THE STACK POINTER *#* 1100 *#% 


EQUIV ,ERROR ;BASIC DEFINITION OF ERROR CALL 
“EQUIV Tor’ SCOPE BASIC DEFINITION OF SCOPE CALL 
p #MISCELLANEOUS DEFINITIONS 
T= ;;CODE FOR HORIZONTAL TAB 
LF= i ;$CODE FOR LINE F 
ne COee OOR CARRIAGE. RETHEN-LINE FEED 
pet oO 7b a Beech erence RETU 
-EQUIV PS,PSW 
STKLMT= 177774 3 3STACK L LIMIT REGISTER 
PIRQ= 17777 : PROGRAM NTERRUPT REQUEST REGISTER 
DSWR= + AOROWARE SWITCH REGISTER 
DDISP= 177570 >:HARDWARE DISPLAY REGISTER 
XGENERAL | PURPOSE REGISTER NIT 
kos ER PRERAL Gh TER 
Ris ee ; ;GENERAL REGISTER 

















fe ae ee ee cere a eee. 


Tall ‘wh RELIABILITY 
DZTAEB.P11 


1099 


a 02 2 Be be Fe ba be ho ee 
Pai tietat tps tip tri ites a] 


BASIC DEFINITIONS 


000300 
00034C 


a) 
000002 
000001 
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PR6= 
PR7= 
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3U0 ;;PRIORITY LEVEL & 
340 ;;PRIORITY LEVEL 7 


gies og0dd SWITCH DEFINITIONS 


OWWDWWOWOWOOMOOWWOWMo-: 
FS Ga PE dS ad ae Dh Oe 


2 2 
Oooo 43444 HHS tts ti 
ccCooS 
7 rT) 


Merwerierveeye yey 
oooo 


A¥DATA BIT per INET IONS (BITOO TO BITS) 


10 


rr i ee ee 

esfeslectestestestes}en) 
O42 4 4 4 0 4 
AAA AAAHH 
VMWLUIT Yow 





MAINDEC-11-D2ZTAE-8 


TAL] DATA RELIABILITY 
: BASIC DEFINITIONS 


bbb b-bd 
WO ITU LC 


= - pehstastatusnabuaturer 0 0-0 b— Po fn pe pe Ho pe 
itttetitrbet tipi A iteteatt tt ttt pot et tied 


££ 
w 


: 
4 af 
ee pe ae bn Be he he Pe ae Fee ne me Bn hme Pe Fe Pan Pe ho he Pan hs Be 0 me Pe nt ne Pw Fae fo fe hw fs Pme fas Pw Paw fw 0 fs Fe fe Pn fw Pe 


ce pI Rn ee Wt roe cet apt et oe 
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-EQUIV BiTO1,B1T1 
-EQUIV BITOO,8ITO 


- ¥BASIC wcPu" TRAP VECTOR RODRESSES 
ERRV RVEC= ;;TIME OUT AND OTHER ERRORS 


BVEC= 10 ;;RESERVED AND ILLEGAL INSTRUCTIONS 
SBTYveC=i4 p30 BIT 
TRIVEC= 14 RACE TRAP 
BPTVEC= 14 $ BRep KPOINT TRAP (BPT) 
IOTVEC= 20 $}INPUT/OUTPUT TRAP (IOT) ¥*SCOPEX* 
PUIRVECS 24 OWER FAIL 
EMTVEC= 30 t FENULATOR TRAP (EMT) **ERRORS# 
TRAPVEC=34 “TRAP™ TRAP 
TKVEC= 60 tITTY KEYBOARD VECTOR 
TPVEC= $}1TY PRINTER VECTOR 
PIRQVEC= BuO ‘PROGRAM INTERRUPT REQUEST VECTOR 


1 JH SHEE HOHE HGH Hg HEH HHH OHI HE 
seeueeeeeesTAll deste hcactnamaniannaner 

XWFG= WRITE FILE car FUNCTION 

XURITES 2 sWRITE FU FUNCTION 


FUNCTION 
;BACK SPACE FILE GAP FUNCTION 
; K_SPAC 


et 
F ON 
= PACE FWD BLOCK GAP FUNCTION 
XRWND= 16 :REWIND FUNCTION 
pansuetesee Toil BIT ASSIGNMENT &s#eeeeees 


WRTLOCK=B1T12 


Orn 
0O- 
wz 


AHHH at 4 
Stetntaptit ait 


G 
FUNCTION FUNC@+FUNC 1+FUNCO 





-4oe~- 
o- 
"0% 


fan 
8 


0 + 0-20 <0 -- 6-2 «9-08 © © 6-« 9-< 9-2 p< po 90 
0-40-20 26 20-90 «6 © -+ 6-2 9-2 ph -< 8 -~ B= &-< 9-0 


PR tere iit het a et AL ts 


re ee crete en ee ER YR ES A 


A RECIABILITY 
Pit TRAP C 


090174 
000176 


200200 
Sc0=e10 





s 
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RICHER ives 


/SBTTL, TRAP CATCHER 


-=0 
s#ALL UNUSED LOCATIONS FROM 4 = 776 yok A_”.+2,HALT” 
;#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTE 
s#LOCRTION i, CONTAINS 0 TO CATCH IHPROPERLY. LOADED VECTORS 


DISPREG: ". tea 0 5 ;SOFTWARE DISPLAY REGISTER 
SHREG: 0 ::SOFTWARE SWITCH REGISTER 
SSTTL Sak NG ADDRESS(ES) 





;;JUMP TO STARTING ADDRESS OF PROGRAM 
IMP asBEGINe ;SELECT DRIVE(S) BEFORE STARTING TEST 

JMP @sBEGIN3 SELECT-DRIVE(S) AND ADDRESSES BEFORE TESTING 
Rannnebooduneeeseteansnennisosssunnanelectasonnnsesessenanesses 








G00D’ 
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C03 


OHO000O00 -000000000 Ss OoMm-00 280000000 


MACYL1 27(732) 


-21100 


TCH REG 
Y RE 
QTUS 
CHARACT 
FILLER 
hd 
ee 
WAS OB 
GAD) +0) 
GAD) +2) 
rates 
)+6) 
SE EE EEE EE EE EE EEE 


: eh oe 


Hs 


ys 


wu © 
‘ 


Bae 


ee eG ka pereeeer aa: a 


fs ere § § S58 AO PTSD SSDS See eeeees 


2 
2 
ro) 
— 
cz 
Yo 
oO 
| 
ty 
2 
— 
w 
=z 
oa 
= 
oO 
oO 
w 
3 
os 
& 
> 
2 
— 
a 
= 
z= 
oa 
Yo 
L¥v) 
—3 
re 
= 
w 
oe 
=x 
= 


= 
Ss 
= 
= 
x 
Qa 
F 
2 


aN 
Me 
vs 
ae 
‘te 
* 
.s 
cs 
Me 
* 
* 
ss 
a 
oe 
2 
La 
ae 
e 
‘* 
abe 
oe 
* 
ee 
oe 
S 
- 
= 
vee 
xe 
he 
oe 
* 
He 
a 
we 
es 
os 
-* 
a 
«* 
ee 
he 
& 
ae 
oh 
oe 
ye 
1“ 
cs 
ra 
aK 
ae 
aS 
we 
es 
e 
ts 
rs 
ee 
fe 
oe 
aK 
” 
. 


~S8TTL CUMMON TAGS 


penTocs 
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COMMON TAGS 


a a eee eeeeeee 8 Bee 


RUGGRMGBRSSTTPRADRRTS BSSLLERRAIS Baa 


Sa eae Keate Kem Dae Kees Lote Ree Kom Kom Ke Kone Kee Kot Ke Kon Kam Kee hon Kon Con Kon hoe ko oe Do oe Kos ee oe, tS re eee ee ee Ken bee | 
OEE DOr 8 OG Bg md G OHd me OF OG OF OE Oh Oh GO Be OH dg OF Eh OHH ee ee ee oe i co ton ah hen hem hem! 


ce se 





cee 





S8S88SSS8SSS8S8S8SSSSRS8S8S88s88 S8888S8ssass 883 


CER BSISSRASRLGRTKLTRRERS 


St Rete Retain Kee Kee Reo Rae Ret Roe oe Re Roe Roe oe eo oe ee pee re ee er ey 
ot Dee Keaton Ke Die Doe Ree Rot hoe Rot Doe Coe Doe Ce Roe be coe ee Doe re res ee ee er ee ee ee he eee) 


TALL DATA RELIABILITY 


OZTREB.Pil 





Statatetatatatatats mena earner pe SAM STN 


Ce Keeth he Lome Kote hee] coe am Kam kam fete leah eee ham Ken hem hem ak hem} 


a mm na ee ee oe Se 
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OZTAEB.Pil COMNON TAGS 





8 
5 & 


Fe 
wn 


~+—~+4j~+1-4 
Ba 
oe 
QOee ee ve 
8 
Zs 
G) 


— 0 = 0 0 0 0 he 
SERERRB ES 
i 

NOt 


Lone 


: 
: 


sabebbibts 


8S8888888888SS888 
Of—-we 


= 0 ee 
~< 
~4 


mm 


} 
® 


177500 
ee 
Doouee 
000000 
001274 
000001 
000003 
000001 
000004 

000 

377 

000 

377 
009020 


88. 
etctetat-iat- Fs 
. 

BYPY 


~ 
o 


KES TF Betas 
; THE NUMBE R oF BvTE “READ” OR “WRITTEN 


s DURING Al OPER 16N 

sWILL CONTAIN THE # OF wit LPs! BLOCK 
AF “FORMAT” OR “WRITE” PASS 
WILL CONTAIN THE # OF THE LAST FILE 
AFTER A “FORMAT” OR “WRITE” PASS 





;ADDRESS OF TACS 
SADDRESS OF TAD 
;TAL1 VECTOR ADDRESS 
;TALL BR LEVEL 6 





;MAX REREADS BEFORE CALLING IT A HARD ERROR 
;MAX HARD ERRORS ALLOWED 
NUMBER OF TAPE 4-2 Sahat END-OF -TEST 


ONTROLS THE TYPE OF PASS 





LE NUMBER 

3 ree ON FILE NUMBER 
31°S C MENT OF BLOCK NUMBER 
;NUMBER OF BLOCKS PER FILE 








nt ee i ee ee ee 
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AEB COMMON TAGS 
1262 
ey HL 
ise .SBTTL BLOCK SIZE TABLE 
1 001312 002000 BLKS2: .WORD 1024. sBLOCK 0 
1268 001314 901000 -WORD 5le. BLOCK 1 
1269 001316 90200 “WORD 1024. * BLOCK 
' ' e 

155) Borsse Soecbe “HBR 7884 ser Bek § 
1272 001324 000200 .WORD 128 BLOCK 
A Gales Geet ‘oe aie} 
1275 rake iinet : 1024 * BLOCK 
1 plas! DOOD . sBLOCK 9 
i 001 900200 ; 128 *BLOCK 10 
ia eine Gio ioe ES aie 

ae * 
1 ool 002000 -WORD 1024 BLOCK 
1281 001346 00040 “WORD ” *BLOCK 14 
leBe 001350 000200 “WORD 128. BLOCK 15 
ice SCOOLITTLAALAATSATTETATTTAATAAATTTTAAATAT ATTA A EASA EPEAT AAA TASS AAAS 
128% .SBTTL TABLE OF POINTERS TO THE DIFFERENT PATTERNS 
1288 001352 001412 PATS: PATO 
1289 14 PAT 
ise Gites Ohiiee Pat 
1291 001360 oo0144e PAT 
129 001362 001452 PATY 
t Oo aes cathe PATE 

i 

1295 1358 001 PAT? 
12% 001372 0015ie2 PAT 
ise inl ine at 
1299 eaten 1s PAT 
1300 001402 1552 PA 
1301 001404 001 PA 
1302 001406 901572 PA 
1303 001410 O01602 PA 


8 


ae 


GWIWWIGWUWWUIL) 
2 $9 Bh =F -2 o 2  = fh BO 
CONG UT.£ WIfuH-O 


4 


bb bh poh = = & = 2 2G © D2 Po 


a) 


8 
HHEFESARBHES 


CIR T RMS SRR Eom SOIR Me RS soe OTS 


& 9% —= bo b= B-2 b = GF = Bs 2 2 4 = = Pe Oo OF BB Fh 2 Bo Bo bh B= 2 fo Bs He Dn B= Ho 
B= b+ tes Be b= ee 4 Bs be Be ee 


eS ee ee 


SHERTE ITY NaCI p 


fo he 
uiru 


& 2 bas Gis Ht Ot eh fw eo 


bd Buldcinoe 


RS RIDR SR iniajnicicisiem sistas Rieter diniatet iota 


3h 


wu 
a0 Ome Game 
witMvo 


RRB INR O AREA oR SOS 


o 
co 
Oo 


2ThE- 
NTERS TO THE 


Ww 
7 
£ 


(eo or 
=O 


ey) 
= 
£ 


WessteraEe 


w 
a 


RBENB IIS SS IBUR ess BNGENEN INE SEHD eI Sse 
38 88 3S 88 3 38 83 38 SF F 


7 


= 


He 


~SBTTL 

PATO: .BYTE 
PAT]:  .BYTE 
PATe:  .BYTE 
FAT3: .BYTE. 
PAT4:  .BYTE 
PATS:  .BYTE 
PAT6: .BYTE 
PAT7; .BYTE 
PATS: .BYTE 
PATS: .BYTE 
PATIO: .BYTE 
PAT11: .BYTE 
PATI2: .BYTE 
PATI3: .BYTE 
PATI4: .BYTE 
PATIS: .BYTE 


MACY11 27(732) 





DATA PATTERNS 
314, 063,314,063, 146,231, 146,231 


314,231,063, 146,314,231,063, 146 
001, 002,004,010,020,040, 100, 200 
177,277, 337,357, 367,373, 375,376 
2S2, 125, 2Se, 125, 252, 125,252, 125 
000, 111,222,333, 044, 155, 266,377 
000, O44, 111, 155, 222, 266, 333, 377 
000, 222, 044, 266, 111,333, 155,377 
001 ,003,007,017,037,077, 177,377 
376, 374, 370, 360, 340, 300, 200,000 
001,376, 002, 375, 004,373,010, 367 
020,357, 040, 337, 100,277,200, 177 
000,000,000, 000,000, 000,000, 000 
377 , 377,377, 377, 377,377, 377,377 
000, 377,000, 377,000,000, 377, 377 


017,360,207, 170,303,074, 341,036 
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DIFFERENT PATTERNS 





4 
YD 
~ 


RS 


SeeenceKees & 


DATA RELIABILITY 
-Pll 


TRE-B 


34/7 
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POLEPLAAETTLAETTATATLATIA TATA AATASAAAA TEAL ATAAA ASAT ALAA AAA AAA AAS 


.SBTTL PARAMETER BLOCK USED WITH ALL FUNCTIONS 


PARMBK: .BYTE Q 


;USED FOR STATUS /EFROR 
‘DRIVE # (DRIVE A=O, B=1 
sEOINTS "10 See ie PRRSR BYTE 


sLSEB FOR Byfe COUNT. 
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OZTREB.P ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 
pRTHIS TABLE CONTAINS THE INFORMATION ‘: EACH ERROR THAT CAN OCCUR. 
NDEX NUMBER 


AES & 


. ATHE INFORMATION 1S OBTAINED BY USING I 
3 j LOCATION SITEMG. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
3 *#NOTE1: IF SITEMB IS O THE ONLY PERTINENT DATA IS (SE 
3 t #NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOMS: 
% EM ;;POINTS TO THE ERROR MESSAGE 
te OH S:POINTS TO THE DATA HEADER 
tt OT ::POINTS TO THE DATA 
ts OF j POINTS TO THE DATA FORMAT 


001622 SERRTB: 


JHE HEHE HEHEHE HHH 
MHBHEUEHEHEE HEHEHE HEHEHE HEHE HBHBBHBHBHB HEE 
5S HE 


SpinsGRoGsd AAPM Aw ee SRR SERB BI TISTS 





001622 eee ; ITEMS 001-002 
gNOTE: ALL NUMBERS WILL BE TYPED AS 6 DIGIT OCTAL NUMBERS 
UNLESS OTHERWISE NOTED 
— 1 
001622 012220 EM! :DATA ERROR 
001624 OleS11 DHI PC FILE BLOCK BYTE GDDAT BDDAT GDADR BDADR 
001626 O11744 OT1 *SERRPC SREGO SREG2 BYTNUM SGDDAT SBDDAT SGDADR SBDADR 
001630 012026 OF 1 3FILE,BLOCK AND BYTE ARE TYPED IN DECIMAL 
sITEM 2 
001632 012233 EM2 ;SYNC ERROR 
001634 012607 DHe ; EXPT’D EXPT’D RCV’D RCV’D 
*PC FILE BLOCK FILE BLOCK 
435 001636 011786 pT2 *SERRPC SREGO SREG2 STMPO STMP2 
436 OO1640 012036 DFe ALL NUMBERS EXCEPT SERRPC ARE TYPED IN DECIMAL 
1438 HHH HHH HHH HHH HHH HEHE HEHEHE HEHEHE 
1499 MHEG GHHHHBHEHEHEHEHHHHEHEHGHEHEEHHEHEHHB HEHEHE 
iit 2 aa GHEE 
iat 001642 nena sITEMS 101-107 
| J414 OoLe42 oO12246 EMI01 ;DRIVE ey. OFF-LINE 
1415 OO1644 Ole7e4 DH101 FILE BLOCK FUNCTION 
1416 00164 O12002 DT101 
1417 001650 000000 0 : FILE re aD BL tae SYPED IN DECIMAL 
1418 > STNPO Gox MIL A FUNCTION NAME 
| 1420 001652 012270 EM102 ;DRIVE IS WRITE-LOCK 
| 1421 OO1654 012724 OHIOL ;PC_ FILE ae FUNCTION 
tee OO1b56 012002 DT101 ;SERRPC S$REGO G2 STMPO 
14 1660 000000 0 *FILE AND BLOCK WILL BE TYPED IN DECIMAL 
| ies *STMPO WILL BE TYPED AS A FUNCTION NAME 
| 











SECS ERREASRGTOLE 


1471 


TALL DATA RELIABILITY 
OZTAEB.P11 


=i a 
888 
OB Be 


- 
- 
Ge ee he paw 


SSR | Solan 


+ 


“J 
ee 
oOo 


rar 
epee 
Oo .£r 


B888 8888 8 
aan 


pe hs be he 


1 


8888 8888 8 


daze aeae 8 





b17e4 
go6000 


18934 
012002 


ooo gece 
Ray GON? 





MAINDEC-11-DZTAE-8 
ERROR POINTER TABLE 


; LERAELALLLALLLLLLLEL ELL ELLE E ELLER ELLA ASAE LLL RLLAALLEREL ELLE ES 
MB HBHGHEHEHEHHHEHHEG HEHEHE EEE HHHEHEEB HEHEHE EBB HEH BHBE 
UBHHBHEHEHHEHEHHEHHHEHHHHEBHEHEHHEHEHHEHHE HEHEHE EEE HEHE 


ree: 





ov00m 
=r = 
300 
ER 


EM201 
DHe01 
pee 


Oe 
DTe0e 
Cc 
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;CLEAR LEADER ERROR 
:PC FIL BLOCK FUNCTION 
i RRPC S$REGO SREGe MY a 
LE BLOCK WILL BE TYPED IN DECIMAL 
;STMPO WILL BE TYPED AS A FUNCTION NAME 


;FILE GAP 
1 Pie ot OkK cya TORS 


; SERRPC SECO Usa! 
SFILE AND BLOCK iT Ree YPED IN DECIMAL 


;STMPO WILL BE TYPED AS A FUNCTION NAME 


; TIMING ERROR 

;PC FILE BLOCK CU TION 

;SERRPC SREGO SREGe 

;FILE AND BLOCK WILL BE HPED IN DECIMAL 
;STMPO WILL BE TYPED AS A FUNCTION NAME 


; BLOCK Ore ERROR 

;PC FILE BLOCK FUNCTION 
;SERRPC SREGO SREGe Ua 

;FILE AND BLOCK WILL BE TYPED IN DECIMAL 
;STMPO WILL BE TYPED AS A FUNCTION NAME 


Prue. | BLOCK FUNCTION 


STMPO 
“ Coe TYPED IN DECIMAL 
it, pac Lt AS A FUNCTION NAME 


; ITEMS 201-202 
;TALL FAILED TO RESPOND 
:PC rae 


;SERRPC TACS 
BOTH NUMBERS ARE TYPED AS OCTAL NUMBERS 


;NQ ORIVES AVAILABLE 
; SERRPC 




























1498 





Belen eRe s 


CHU TU 
0 


a ed ed ed ed eek eed ed eed wed eed ed wed ed ed el ed ee od 
ONO WHO 





RERSRERKE 


it 
N 


ae a ee ee 


Pil 


- 

-_ 
B 

- 
= 
o 


ret ioe 


Bist 
ened FENERR Book 
200000 


a 
u 


= 
- 
u 
ena de fee ee ee ee 


S 
Si a 


002214 


TAl1L DATA RELIABILITY 
DZTAEB. 


OL 


a 


= 


a 


é 


7 


MAINDEC-11-D2ZTHE-B 
START OF TEST 
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SCSASPSTATILASATSAALALTATATAATAAT LATA ETT AAT TIT ET TISAI T AAA AT SSSA S 
SOOAPOTTATATAATTTAATAATATT TILT ETAT ATATAAT ATTA EAS ASTD LAAT AAA SAAS 
fs RRRRRRRRRAALAA AL RRAARE EARLE RE RELEER ELE LE RA LELERERAREF AE SEALE ESE 


;BEGIN] IS FOR NORMAL START 
;BEGINe IS FOR ORIVE SELECTION 
;BEGINS IS FOR DRIVE & ADDRESS SELECTION 


WeTtiititiiititii iti itiiiiiiss ti tiiitiiiitiiiii ici rier ree rrece gy 


BEGINe: 


BEGINI: CLR 
MOV 


BNE 
CMP 
BNE 
BR 

MOV 


BEGIN3: MOV 
BGNCMN: 
-SBTTL INITIALIZE THE COMMON TAGS 





-SBTTL TYPE PROGRAM NAME 


MOV BSTACK 
;; INITIALIZE A FEW VECTORS 


eesessess 


aaggcs 


3 Re 


RS ;NORMAL START 
#"AB, J8DRVKEY 

#5, 0841 ;CASSET ? 

BGACMIN G0 BEGIN COMMON CODE IF NO 
#260, J#TAVEC *STANDARD VECTOR? 

BGNCMN GO BEGIN CODE IF NO 
BEGIN “GET DRIVES AND ADDRES 

#1,RS ASK FOR DRIVES FLAG 

BGNCMN “BEGIN COMMON CODE 

#2,R5 *ASK FOR DRIVES AND ADDRESSES 


COMMON ue} (SCMTAG) AREA 


AG, RS ;;FIRST LOCATION TO BE CLEARED 

(R6)+ CLEAR MEMORY LOCATION 

#SWR,R& ;;DONE? 

6 LOOP BACK IF NO 

#STACK, SP *:SETUP THE STACK POINTER 
DBIOTVEC :;I0T VECTOR FOR SCOPE ROUTINE 

#340, astoTvecte ;:LEVEL 7 


QHEMTVEC ;; CTOR FOR ERROR ROUTINE 
tg gubntieass ites 


8STRAP, JRTRAPVEC :; TRAP VECTOR FOR TRAP CALLS 
#340, JRTRAPVEC+2; LEVEL 7 
8SPWRON, JUPWRVEC : : 


COUNTER 
TALIZE THE LOOP ADDRESS FOR SCOPE 
NO IT IS 


T Foe OR 
TWARE SWITCH it ae 


BERRVEC,-(SP) ;;SAVE ERROR VE 
84S, JSERRVEC ::S5ET UP ERROR VECTOR 
#DSWR, SUR SETUP FOR A HARDWARE SWICH REGISTER 
8DDISP, DISPLAY :;AND A HARDWARE DISPLAY REGISTER 
#-1, aSWR >: TRY TO REFERENCE HARDWARE SWR 
66 BRANCH IF NO TIMEOUT TRAP OCCURRED 
_- $$AND THE HARDWARE SWR IS NOT = -1 
65$ BRANCH IF NO TIMEOUT 
86SS, (SP) *:SET UP FOR TRAP RETURN 
WSHREG SHR, ayisPOINT TO SOFTWARE SWR : 


(SP)+,a#ERRVEC ;;RESTORE ERROR VECTOR 








TYPE PROGRAM NAME 
1528 -3 3 TYPE THE NAME OF THE PROGRAM IF FIRST PASS 
1529 002220 005227? 177777 #-1 ssEIRST T IME? 
1230 ppssse poa038 004716 oo004e2 es E7$ eo, ae4e2 peer A? 
135 Soeese rit 002274 yt: FRING 
ies .SBTTL a “vavut “FOR SOF TWARE slit Patil iF 
1 oo2242 005737 o00042 sARE WE RUNNING UNDER XXDP/ACT? 
1536 O0224% 001006 Bee 85 se BRANCH IF 
1537 O022S50 Oc6727 176664 000176 CMP SWR, #SWREG ieee Tae SWITCH REG SELECTED? 
1233 possee Souaga SOEUR st TRON COFT SUR SETTINGS 
tesa Bosses doouas aR ons 3 
1541 002264 112767 OO0001 176642 69S:  MOVB #1,SAUTOB ;;SET AUTO-MODE INDICATOR 
teu5 BOES7S  onowi3 en 675 ,GET OVER THE ASCIZ 
154i nasi ; To "ASCIZ <CRLF> /MAINDEC-11202TAE-B/<CRLF> 
1546 5 REAKAARERLALLALEL LALA ALLEL ARAL LAAALE RE RELA LE REALE LE RELL LER ALLELE 
4 2H HHH HHH HHH HGH HEHEHE HEHEHE EGO 
1599 ;THE CONTENTS OF RS DETERMINES WHAT WILL BE DONE 
1551 =2 ASK FOR DRIVE(S) AND ADDRESSES (TACS AND VECTOR) 
1552 : RS=1 ASK FOR DRIVE(S) 
1553 RS=0 DON’T ASK FOR ANYTHING 


1sss s LLFLALALAARALAALLERAALAAEALALALALALELLAAEALLERALAAARALERAALARLARE 


1556 902322 010504 BEGINX: MOV R5,R4 OP fe nil 
1223 Gossee pose EAKADR BR IF ONO 

1559 002330 004737 007610 JSR PC, J#ASKDRV GO GET DRIVES TO BE TESTED 
1560 002334 DEC RS "ASK FOR ADDRESSES? 

1561 0020336 0024 ; 

1562 002340 004737 007720 JSR J#ASKADR "GO GET TALL ADDRESSES 
1563 5 RAMANA Euan Ehnue ince nexannane ne be aS EME TERRE ETRE EEE 
ieee UGHEHHGHHEH EEE HEHE HHH HEHEHE GHEE Era 
1566 ute THAT “TACS” WILL RESPOND TO ADDRESSING 

1568 ‘1. TIMEOUT OCCURRED 

1569 : A. TYPE ERROR MESSAGE 

1570 : B. EXAMINE R4 

1571 : 1. R40 GOTO BEGINX 

1572 : 2. R4=0 EXAMINE (42) 

1573 : A. (42)=20 GOTO BEGINX 

1874 : B. (42)>0 GOTO SENDAD 

1576 *II. TIMEOUT DIDN'T OCCUR 

1877 ; . CONTINUE 

1579 ; LEEK EEELELRER EEE KER LEE SRREE RSLS ARES EARARERES RG RARE SRE LS ELS RAEES 
1880 02344 012737 oO22%62 cooco4 HKADR: MOV #1$, QHERRVEC sIN CASE OF TIMEOUTS 

1581 O0e2S2 o0S000 CLR RO “USE AS A SWITCH 

1582 002354 005777 176660 TST JTACSL SEE IF TAL RESPONDS 


i DATA RELIABILITY MAINDEC-11-D2TRE-B MACYLL 27(732) 25-SEP-76 11:17 PAGE 37 
| 
j 
j 
| 1563 002360 00402 BR tS bBR IF NO TIMEOUT 
| 





—— 


‘ 


cmc ee aaa LL LLL LLL LLL LLL LLL LLL 
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DZTAEB.P11 GET VALUE FOR SOFTWARE SWITCH REGISTER 





138d hated poSeoP t 18: INC RO ;COME HERE ON TIMEOUT 

1 364 Oeebeb CMP (SP)+ “CLEANUP THE STACK 

1586 002366 012737 000006 O00004 es: MOV aERRVECSE, J¥ERRVEC RESTORE TIMEOUT VECTOR 
1587 374 Beate TST RO :DID_A TIMEOUT OCCUR? 

1588 276 14le BEQ 3$ ;BR IF_N 

1589 poe 104201 ERROR e201 TALL FAILED TO RESPOND 
1590 O0e40e 912705 o00002 MOV #2,RS :DR 1VES & ADDRESSES 

1591 00e406 005704 TST R4 ; OPERA ATOR INPUTS? 

15392 002410 001344 BNE BEGINX ;BR_IF YES 

1593 O0241e 013700 Oo0004e MOV a#4e, RO ‘GET MONITOR RG TURN ADDRESS 
1594 O00e416 001741 BEQ BEGINX ;BR IF NO MONITO 

1595 O024%20 000137 O04716 JMP d#SENDAD 

1596 O02424 012777 OO7046 176612 3%: MOV #CASINT, aTAVEC SETUP CASSETTE INTERRUPT VECTOR 


1587 o02e432 005077 176610 CLR aTAVEC+E 
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ZTREB.P GET VALUE FOR SOFTWARE SWITCH REGISTER 
1598 5 RRELRA KALLA ERE RRK EERE LEER LARGE REALE RE RERERELELS REERELE FEELS 
1253 33 SROPESETITTTTTTTTTTETTSTETETTTIe TTT TTT TTT TT eTe TT TT LERKELEZFEAEX 
1601 ;MAKE SURE THE DRIVES IN THE DRIVE TABLE CAN BE TESTED 
1603 iI. DESIRED DRIVES CAN NOT BE TESTED 
1604 : A. TYPE ERROR MESSAGE eo 
1606 : 1. RYO Goro BEGINX 
1607 : 2. R4=0 EX AMINE (42) 

1608 ; (42)=0 GOTO BEGINX 
1603 : B (42)>0 GOTO SENDAD 
1611 | :II. BOTH DRIVES IN THE TABLE BUT ONLY ONE OF THEM CAN BE TESTED 
1612 : A. CLEAR BAD DRIVE FROM THE DRIVE TABLE 
1613 : B. TYPE THE DRIVE TO BE TESTED 
1614 : C. CONTINUE IN PROGRAM 
’ 

1616 : III. DESIRED DRIVE(S) CAN BE TESTED 
1617 : TYPE THE DRIVE(S) To BE TESTED 
1618 8 CONTINUE IN PROGRAM 
1620 4 SKORV, MOV ORVKEY ROD PICKUP ADDRESS OF ASCII 
1821 002436 012700 001252 bhKDRV: MOV sPICKUP ADDRESS OF ASCII DRIVE KEY 
lbe2 02442 004737 O10164 JSR BOR REXAR :G0 EXAMINE FIRST DRIVE 
1623 000410 eR i :0K TO TEST---GO CHECK NEXT 
1624 oe450 116010 oo0001 MOVB 1(RO), (RO) *REPLACE IST WITH 2ND 
1625 001412 BEQ ES *BR IF NO 2ND DRIVE SELECTED 
1626 002456 004737 010164 JSR PC, JEXAM GO EXAMINE DRIVE 
1627 pogo? BR $ 0K TO TEST 
1628 002464 10 CLR (RO) :CLEAR DRIVE CODES 
1629 O02466 O00405 BR ag 
1630 002470 1S: INC RO sPOINT TO 2ND 
1631 O0e472 004737 O10164 JSR PC, J¥EXAM GO EXAMINE DRIVE 
1632 002476 O00401 ER es OK TO TEST 
1633 og2600 10501 CLRB = (RO) ;CLEAR 2ND 
1634 13700 001252 2S: MOV #DRVKEY, RO RESET ADDRESS POINTERS 
1635 002506 010037 001256 MOV RO, J#ORVPNT 
1636 002512 121060 O00001 CMPB =: (RO), 1(RO) ;1ST_= 2ND? 
1637 092516 001002 ee Oe BR IF NO 
1638 O02520 105060 000001 -  CLRB 1 (ROD *YES=--CLEAR 2ND 
1639 002524 005710 3S: qs! (RO) scat pRives? 

ie 
1641 002530 12087 001613 VB  (RO)+,J#PARMBK+1 ; SETUP TO TYPE THIS ORIVE 
1642 002534 104400 O12 TYPE SCRLF :TYPE “CR” & “LF” 
1643 002540 106237 001613 ASRS § d#PARMBK+1 "ADJUST FOR TYPING 
1644 002544 004737 0075 JSR PC, J8TPDRV GO TYPE DRIVE 
1645 002550 111037 001613 MOVE (RO), J#PARMBK+1 ; GE ae 
1646 002554 001406 BEQ ng ;BR IF NONE 
1647 002556 104400 013174 TYPE  ,MSG9 : "AND" 
1648 O02S62 106237 001613 ASRS § dePARMBK+1 ADJUST FOR TYPING 
1649 002566 004737 007554 JSR PC, J#TPDRV GO TYPE THE 2ND DRIVE 
1650 002572 104400 013201 4g: « TYPE mSG10 "WILL BE TESTED"<CRLF> 
tees pose 104208 5s: ERROR jy , sNO DRIVES AVAILABLE 
1653 Bosebe bi27e oocog2 MOV #2,R5 DRIVES & ADDRESS 





_ 
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DZTAEB.P1l GET VALUE FOR SOFTWARE SWITCH REGISTER 


easag rei TST RY ; i DPERATOR INPUTS? 
165 61 1244 BNE BEGINX R IF Y 
1656 O0e612e 013700 Od004e MOV a#4e2, RO :GET HONTTOR RETURN ADDRESS 


1657 002616 001641 BEQ BEGINX 
1658 O0ee20 O00137 CO4716 JMP d#SENDAD :GO TO END 
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-4 

YD 

— doe 
oe 


D2TAEB.P SET VALUE FOR SOFTWARE SWITCH REGISTER 
1659 SPAPSLIATATTLAELITOLTATTTOTOATTTATAATT ASAT ITT ATTA AATTTAAS SASS SSS 
1869 SASLPIPOLILTTLLEETTTATATELTTPDTLAATTATITA TADS L ATV TAT ATA AAA TAT AAT 
1681 SERERAERELELEEREREEREREREEE ER EES ERE EALESESEESSRELES ESSERE ESE EEEE 
165e SRERERPREEEEESRREE REPEL EREESERRES EERE ERESERERE REL ELE RELA S ELEEES 
i : 
1664 : i. cee ie THE VARIABLE STORAGE AREA 
1665 ; a. THE ORIVE THAT IS TO BE TESTED 
1666 ; re SETUP OeSIEE™ AND “LASTBK” INCASE OPERATOR pele CTS “READONLY” PASS 
1657 ; 4. SETUP THE MAX. NUMBER OF RETRY 3. FOR READS AND WRITES 
1668 ; S. SETUP TO START WITH A “FORMAT” PASS 
1883 ; &. CLEAR THE PASS COUNTER 
1871 . mega meme To cms ty pete eg gre etd ge. 
1672 002624 012700 001114 btarT: MOV #SITEMB,RO ;CLEAR VARIABLE STORAGE ARZA 
1673 002630 Ol2701 000005 MOV aSE00AT-SITENB/2, Ri 
1674 002634 004737 002769 JSR #CLEAR 
1675 002640 pire 001206 MOV 
1678 002644 pie 1 000014 ny 
1678 Booey nye 001256 MOV 
Pan 002660 112100 mye 
1681 O02654 O04, 177776 BIC 
1682 002670 11 001613 neve 
1683 002674 105711 TST 
1684 002676 001002 BNE 
1685 atte, 001252 MOV 
i 0101 001256 es MOV 
He Be tle? Gey pee 
1689 cee bara? 001260 O0le24 MOV 
feat Geenp Glog Biles Biles RY 
bes oem Gosoa? O01S72 CR 
1693 O0e7Se 005037 001266 CLR 
Ee fare Bee asia: Ee 
| eae Bosse 908301 bE 
1697 002764 pete BGT 
| 1692 902766 ? RTS 


TALL DATA RELIABILITY 
dz -Pl 


$83 e 


Cc 
-~ 


SER SER 


Bas 
a} 


1 a 


RRS 
ator>) 
roo 


saesendiss 


26-3 2 hh Hn Os Ho Hs Poe Heh © 


r: 


ce cpoes CTR eS 


ATRIAL 


wi 





NAINDEC-11-CZTAE- 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


117 
117 


1762S4 


001270 
001304 
001270 


001172 


8 MACY11 27(732) 25-SEP-76 11:17 PAGE Ye 
5 RRRAEERARREEE EEE REL EERE EEER ERE RREE EE EEE EHE EELS SEES EEE REEL EE SEES 
WITITIITITITIITtITLiTLiTiTLiLLLLLLLLLL LEELA LL cee 


4 CHECK SURG? 
: URC a1 PERFORM AS PER SWR«1:0> 
; DOSFORNAT Pass 


mt 1=READ ONLY 
B. SWR<7)=0 
1. UPDATE PASCNT 
2. seteday AS PER (PSCNTL+2) 
FORMAT 
3 URI TEONL 
WRITEONLY 
. READONLY 


KELLELEEFLELA FELL LLALALLLLLLLELELELALLLLEEALALLLLLLLELALELELEE 


borer: MOVB F SWR(7)=1 ; DO PER SWR<1:0> 
BICB See tAT To?" B1TOL!BITOOD, abgtrec 
BMI 3$ BR IF SWR<7>=1 
1S: cH SEPASCNT, , @PSCNTL is ty THE ySOUNTER AT MAX.? 
CLR SePASCNT RESET We COUNTER 
ADD 82, J8PSCNTL ;MOVE TO THE NEXT PASS TYPE 
INC @ePSCNTL+2 
ce SaPSCNTL, , #RDSPAS+2 : ;TINE TO. RESET PASS TYPE? 
MOV SFORPAS, J8PSCNTL *YES=--RESET THE PASS CONTROL WORDS 
CLR aePSCNTL+2 
Ba 1$ GO CHECK THE COUNT 
2s: INC DePASCNT :COUNT. THIS PASS 
me MOV QSPSCNTL+2, 28S TMPO UP THE TYPE OF PASS TO DO NEXT 
CLR -(SP) 
aeSTMPO, (SP) s PICKUP THE DISPATCH INDEX 
(SP) SPOSITION THE INDEX 
(SP) BEFORE USING IT 
ADD (SP)+ PC 60 TO THE ROUTINE 
IMP aaFORMA 
fe Sue 
INP SeREAOSNY 


Hdd did ddd ddd ddd ddd iid iddiididddad 
SALIIIIITTALALALATALTALALLATATAALATTLATTTETETLTTLAAEELEPEA ELLE 
ere ret ne ee 

¢ SESSEALELAA LESSEE LEERAELAERLLELALLELELLL ALLS LELALARELREERERE 












TALL ae RELIABILITY 
OZTAREB.P 


174? 
1748 
1749 


1751 


si gtalalelylalalalplatyl 


me Rabat eA RSA oe 


a SN asian alot otototobtotatototon 
= 


3 


seks 


g 2 
=o 
88s 
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oF TWARE SWITCH REGISTER 


SSAASSALASAIALTATAALLAATTATA AAT AAAAAATT LEEDS A LAAT AAAAT ATTA AAA AAS AAA 
SLOSELIIPPATATALTEAATLTTTALAEIITTAT AT ATATATT AAA T TAA TSS AAA EASA AAS 


SLOSS PPLATATIATATTATATTTALA ATA AETT TATA AAATAT AAA ET AAT ASL A AAAI S A 
SSALIESPITAAAATALTASTAA TATA ALATA ALATA TATA ASDA TTA AAI AAAS AAAS AS 


-SBTTL “FORMAT” ROUTINE 


s FHAASSLSEAELLSALLLELELEE LA LER LKLLERELALLLLALLLLESAELLLL ELE LSSFRE 
1 HHHGHEHBGHHHEHHHEHBHHEHEHEHHE HEHEHE HEHEHE HEHEHE 


THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 












fete a 

q- WLTE BASex OF Onta 

: S; READ BLOCK OF DATA 

REG POL Be 

: : A. DATA ERROR OCCURRED 

: ) (ROTRYS)<(MAXROS) GOTO 4 

: ) CROTRYS) =(MAXRDS) 

; (WRTRYS) < (MAXERR ) 

; 1.) BACK BLOCK GAP 

; 2:} GOTO 3. 

: B.) (WRTRYS)=(MAXERR) GOTO SEOP 

: B. NO DATA ERROR --- GOTO 8. Cr. 

: 8. UPDATE THE BLOCK NUMBER 

: 9: END OF FILE? 

; A. NO --- GOTO 3. 

4 B. YES 

: 1.) TE FILE NUMBER 

: -) RESET BLOCK NUMBER TO 0 

$ -) GOTO 2. 

WETiriitiititiitiitititiititiitiitiiitiitiitiiiittiitiittittiiisy 

001106 FORMAT: Nov. SF ORNAT, 2#SLPADR sSETUP, SCOPE LOOP ADDRESS 

{oR Pett GO TYPE THE DRIVE 
MOV {PC)+,a(PC)+ sINITEAGIZE TH THE BLOCK NUMBER 
8B 0 BY 
FORD «BL GK 76 THE T°s CON. OF BYTE 0 
MOV (PC)+,9(PC)+ TAs I THE FILE NUMBER 
B : 377 TO 0 ‘AND TE 1 


LIMITE 
CMMI ELILILAIEUUAETELULUALTOT SUAS OLLIE LLL LL 


sR0=457 ADORESS OF PARAMETER BLOCK 
JSR PC Pe a eREINO *GO TO REWIND 
1S: T 18 SEPARMEK sWAIT ON FLAG 

BPL 4 :BR IF NO ERROR 


GO TO CSR ERROR CHECK 











~4 
D 


a 
fs 


TA RELIABILITY 
-Pll 


003210 000137 


14 
14 012700 


BH Pw Bins bar Pas fs fa 
0 pO On 4 co co.cD oD cDdD 00 cD GD 0D 
4 uru Ce ee ee Se ee ee oe en 
eles - BDNGMU£WlH-O 


leek od eed eed ood eed eed eed eed eed eed ed ed eed eed eee 


-t Ps ha Bs Ba G2 0h + ho he ee bs Bs RH hm he Fah es 


auth Paani + EP eg a Ek 








MAINDEC-11-02TAE-B MACY11 27(732) 25-SEP-76 11:17 PAGE 44 
"FORMAT" ROUTINE 


004406 


001106 






JMP deSEOP 360 TO END OF PROGRAM 
ns, OE AGEL aa at tai ht a heh hatte 






; ~FILL~ 
LULL dddddddddida 
i MOV SPARNEK RO sROZ1ST ADDRESS OF PARAMETER BLOCK 

JSR Ay acd GO TO WFG 

38: S18 sub aRtk “WAIT ON FLAG 
PCR ORO, DRCSRERR ie TO MOR ERROR ¢ 
IMP SutEoe $8 18 ERD FF PRO 
JMP oTs 


71111 a A AO ar rvrgcggganrgareagagion 
SLIIIIII LIA TUTUT LAL AYLL LILI TAAL ALTA I LYALL AL ALLL 


of: JSR Bes se UPW TUP FOR A WRITE 

MOV SPARMEK RO iRDs| RO= [ST AODRESS OF PARAMETER BLOCK 
6S: rete Ss hrtek WAIT ON LAG 

ra zs ECSRERR Bf 19 CoReERROR CHECK 

IMP asseop :GO TO END OF PROGRAM 


Ce MA 





Added dddddddddddddddddddddddddddddddddddddddddddddddddddddddddd 





9$: 
MOV #PARMBK , RO dst sy ADDRESS OF PARAMETER BLOCK 
CET $68 10.8 
8S: TB a IT 
BEG &3 
BPL 9s ;BR IF NO ERROR 
We RO, J8CSRERR 60 10 CSR ERROR oR CHECK 






WO NTCK Kiedis 
ge pe gaseTupR 60 SETUP FoR READ. 


ds: Q READ 
T ADDRESS OF PARAMETER BLOCK 
JSR PC, J8READ READ 
10S: 1318 OP ARMEK iat ON FLAG 
Mt BR IF NO ERROR 
J JSCSRERR GO TO CSR ERROR CHECK 
IMP assE0P 


: SCOPE 
egg og 9  acanis taapahanatidec signa temeciadtte 
SALILLALLAATAALTLATLA ATLA TATA LALA TAAL LAA ATLAAAAA TELAT 
aeSYNCK Betyg ERROR? 
TURN HERE IF NO 


ERROR é ;SYNC ERROR 
JMP #SEOP 








4 
bs) 
~ 
~- 
4 
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OUTI 


~4 


Beees & 


-—D 
~= 


u 


R 
<£ 


ieee 


i ha Si 


3 


b-- b= bb -= & p> 6 -— &  & = p= P= 9 p= bp 
~ 


i 


a 


~ 


8 
a 


eo 


BB Ja cal sont 


z 


8 
ts 


ei 


8 
BS 


= b+ b= b= b= b+ B29 b= B+ <8 oD = P= 6-2 b= = = = Ph Bs hh He 
i 


BIRR LOR See GRR EOS 


: 


HULU 


: CHECK FOR DATA ERROR IF SOFT REREAD 
CSASISTFESAISTATTALASAAFATAATAAATATTAAAATAAAAAAAAAAAAAAA RIAA AAA AAAS AAA AAAS 
{es: JSR PC, asDATCNP ;CHECK THE DATA 

R 15$ *RETURN HERE IF DATA IS GOOD 

ERROR 1 DATA ERROR 

JSR RO, I8CNTSFT *COUNT SOFT ERROR 

BR ? GO REREAD 

JSR RO, J#CNTHRD ‘COUNT HARD ERROR 

BR 13 : REWRITE 


JMP aeSEOP ; Y ERRORS 
AAAALEL ih LLL GA a aia a ae 
hdd a TET alle alas ig GG LLL GL LES 


DEC oui sTRY TO REWRITE THIS BLOCK? 
MOV SPARMBK, RO *RO=1ST ADDRESS OF PARAMETER BLOCK 
JSR PC, J88S8G GO TO BSBG 
14S: S18 SePARMEK *WAIT ON FLAG 
BPL 4g ;GO START A WRITE IF NO ERROR 
ISR RO, DECSRERR GO TO CSR ERROR CHECK 
1S$: MOV DEMAXROS, IBROTRYS ;RESET THE REREAD COUNT 
#WRTR TT T 


MOV : T 
SVOMMMESEE IATL TALLINE 
; & g 
TLL LLL 








(PC)+,a(PC)+ INCREMENT THE BLOCK 
-BYTE 1,-1 
“WORD BLOCK 
CMPB 0=s-s SSF ILESZ, D#BLOCK sTIME FORA FILE GAP? > 
BGT 4§ *BR IF NO--GO START A WRITE 
(PC)+,3(PC)+ s INCREMENT THE FILE NUMBER 
“WORD 
MOV 
ES 











a ee 





TALL DATA RELIABILITY 
OZTREB.Pil 


1899 
1 


seeeeneses 


O00 0000 00W 
02 2 0-2 2 b= b= §-— 2 pe 
WONMUIC WhO 


Ob 2 bs b= bb = ob B= 0 Bb & 2 2 bo Oh b= FB 0 Fb: Bb 0 bh 2 oe ho hh oh oh mh pee ah —= 


PUREE SEES REA A oy da isrcw st ia a 


cae | Shane 


ER, RIESE ou 
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“FORMAT” ROUTINE 


ey a 


poise 


001 


012700 
004737 
00177% 

1775 
100004 


000137 


377 


377 


SOOLAISLATTITSTTATILAAEATATA AAA ATTA ATA ET ITAA AAAAAA AAA AAA AAAS AAAS 
SAPILELTTIAA ITAL TTI LVAPALAAT TAIT AALS ALAAA ALATA AAA 
SAALILILILALAATLLATTTATAT AAT ATI ATA 
SSLLALTILATTTITTTTSTTAT ALATA LATTA AAA 


- SBTTL “READ ONLY” ROUTINE 


5p RRRSRRERAAE SEAS RELA RELA RAA AE RARE EALARAAE LAL ELALE LALA LAL AL ELEE LE 
5 | RRAARAELARAAAE LEAL LALLA RE RALE LE LALLA LALELELE LLL ALLAL LLL LALL LE 


; THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 
1. REWIND TO BOT 
é. READ BL 


A. DATA ERROR OCCURRED 
1.) (ROTRYS)< (MAXRDS) 
A.) BACK BLOCK GAP 
B.) yp 2 


2.) (ROTRYS)=(MAXRDS) 
A.) (WRIRYS)<(MAXERR) GOTO 5S. 
B. a nies (MAXERR) GOTO SEOP 
TA ERROR --- GOTO S. 


COO SESE SE SE SO SESE SESS OF SCE wee es Stes ee ee eees 


s LELELALEELELLLELE RELL LELAE LEAL LELLALEAKLLAAERREL LL RALLLALALEEAE 


READONLY: 
MOV #RE Y, 2#SLPADR ;SETUP SCOPE LOOP ADDRESS 
TYPE MSG1 ERE #24" 
JR PC. 8TPDRV 'G0 TYPE DRIVE TO BE TESTED 
ie are Te a ee 
es Tita Lt rk free 
Rov ( c)s,a(PC)+ HINIT UAL I FILE RUE 
“FORD Pte 35 THE Fg Cone. "OF BYTE 4 
et Sena te tee ee 
sisacniad tag? LL yp srensd nag EL gg deg og 
eH HA , SOREN GO TO REWI nn 
1S: 189 JS8PARMBK WAIT ON F 
BEQ 1S 
ia 5 JeCSRERR GO BR 4 Re EER aR CHECK 
IMP OP T PROGRAM 


+ ° = = 
SAIILITTLLLTATTLATLTLTAATETETAATAALAATAELELAEEELAAELEAAALEEEELEEL EEE 












p= 6— pepe a § 


PP RRR Riera ktastaa ta WR RRR PRAMAS cette ao aca 





soon 


003746 





Gi ha H+ pre §-6 Bae bo = fs 4 bo fr BB 2 Fe hs Fs & -2 B= 2 Bt 2 bs fo De Hs he hs hs pe he fo fh 0 fee fo Po Pi a pe 


OS 


Se 


r 


TA11 DATA RELIABILITY 
OZTAEB.P11 


004737 
000417 


Bee 
agg 


g 


oS 
5 


=I =} 
5 


Raoee) G & 


006210 


003710 
miele 


006732 
001612 


006540 


MAINDEC-11-D2TAE-B 
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001106 


001106 
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SETUP FOR “READ” 
VLE LL 
2S: JSR PC, JNSETUPR sSETUP FOR “READ” 
BR S$ GO START A READ 
“Saban TG GG Lg TLL ay 
SALLLIOPLTATEOLbssata Td sdssstssssssb ed sss ss easssd sss ssssssssedss esl 
3S: MOV #5$, J8SLPADR SETUP THE SCOPE LOOP ADDRESS 
MOV #PARMBK, RO sRO=IST ADDRESS OF PARAMETER BLOCK 
JSR PC aeesbG G0 TO BSBG 
4S: STB S#PRRMEK ‘iar. ON FLAG 
BPL c$ GO TRY TO REREAD 
ISR RO JSCSRERR 360 CHECK CSR ER ERROR 


LLLP 
TLL 


gs: MOV #3$, a#SLPADR ;SET THE LOOP ADDRESS 
MOV #PARMBK. RO *ROSIST aboRese OF PARAMETER BLOCK 
JSR PC SPE ARC GO TO READ 
6S: 1318 S¥PARMEK WAIT ON FLAG 
BPL 75 BR IF NO ERROR 
JSR RO, J8CSRERR GO TO CSR ERROR CHECK 
IMP soa T 


360 TO END-OF-PROGRAM 
Perens bol bake bate er ee 
WELLL LLL 


4§: JSR PC, a#SYNCK ;GO CHECK FOR SYNC ERROR 
BR eg "RETURN HERE IF NO 
ERROR 2 *SYNC ERROR 


TAL Adbd EA OGRA LAA AL LLL b ddd bb dbd dd ddd dbdbddddddddddddéd 
CHECK FOR DATA ERR 


SASLIITALITTLbssea sds ssl esa sd besssibbsdssbbbssdddssbsbsdbsdsbbddeesbttsel 
8S: JSR PC, J8DATCMP GO CHECK THE DATA 
9 *RETURN HERE IF NO ERROR 


ERROR i ;DATA_ERROR 

JSR RO, DUCNTSFT ;COUNT SOFT ERROR 
BR ; TRY TO REREAD 

JSR , O#CNTHRD ;COUNT_HARD ERROR 
BR 9S ;MOVE TO NEXT BLOCK 
JMP aeSEOP ;TO MANY HARD ERRORS 


9S: SCOPE 
gO ELLE. OF LAST BLOCK GOTO CKEOTS OE 
Lasintaad Gerad CLLEGE LT GLE EL 


#MAXRDS , A#ROTR ;RESET Ma 
CMPB = QBLASTFL, @aF ILE sLAST FI 
BGT 10$ ;BR iF NO 
CMPB SHLASTBK, d*BLOCK ;LAST BLOCK 
BGT 10$ iBR IF NO 
INC asEOTS 


; END-OF-TAPE 
BR ;CHECK FOR END-OF-PASS 
LLL LLL 















TAL] DATA RELIABILITY 
DZTAEB.Pil 


3 


Bees 8808 
MONIC U.£ Tu 


aaiiatrintiai sin 
ae 


RB RE 
gezeete 2 
SVorwRe 


ie 


2 
2 


8 


377 
001310 


377 


377 


001306 
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UPDATE BLOCK # & FILE # 
Sp ILIAIL ITIL TIDULAITALATEVALLIUIE ddd ddd 


los: 
nop (PC), a(PC)+ s INCREMENT THE BLOCK NUMBER 
; WORD BOCK 
CHP QiF ILESZ, BLOCK : TIME FOR A FILE GAP? 
ADD (PC)+, (PC)+ INCREMENT THE FILE NUMBER 
one Hg 








‘ FILE 

MOV (PC) +, a(PC)+ s INITIALIZE THE BLOCK NUMBER 

.BYTE 0,377 ;SET BYTE 5 100 AND BYTE I 
BLOCK 0 THE 1’°S COMP. OF BYT! 

LULL 


FO 
Lecilad ea COR Tey a YG LLL 
JSR PC, aaSFFG 


0 SFF 
118: TSTB asPARMBK WAIT ON FLAG 
BEQ 11 
BPL 23 :GO READ 
JSR RO, 2#CSRERR GO CHECK CSR ERROR 


IMP assEoP GO TO END-OF-PROGRAM 


;RO=1ST ADDRESS OF PARAMETER BLOCK 









OZTAEB. 
e 
2039 
2040 
2041 
2042 
EON 
SOME 
2047 


2048 
2049 


TAl1 DATA RELIABILITY 


Pll 


geseeraeiae 
FIRSROOESHN 


22 
23 


012737 004132 001106 
1 013260 . 


04400 
004737 007554 
104400 001203 
012737 
000 377 
001306 
012737 
000 377 
001304 
012700 o0lbie 
004737 006746 
105737 O0l6le 
001775 
100022 
004037 005526 
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SOLAASASALAPLAAAITAATATATAATATAA AAA AAS AAT AA ALATA EA AAAS A AAAS 
SOCSSASALITAAAAAAAATAAAAT ATS TEDATATAAAAA TAT AA SAAD AAA ASAT AAAS SSSA 
SALILITISTLIITLA LATTA ALATA AAAI 
SAALLTITATALATATATTA ATTA A ATATAA TAAL 


-SBTTL “WRITE ONLY” ROUTINE 


5 RRRRAARE LAE LALA ALAA HE RAE EAE RRAE RARE REA ELLER ALE ELE RELA LAL EE RELE 
Pitti iitititiitttitiititiiittttittitititiittiriiirii terior st 


THIS ROUTINE PERFORMS THE FOLLOWING SEQUENCE 







Re 

e. LE GAP 

3. WRITE BLOCK OF DATA 

4. UPDATE THE BLOCK NUMBER 
S. END OF F 


ILE? 
NO --- GOTO 3. 


A. 
B. YES 
1. ; rere FILE NUMBER 
2.) RESET eee NUMBER TO 0 





Ceewewewseee ese ws ee eseweewe 


Sin a a IE OT a eet Nit: 
WRITEONLY: 





MOV SWRITEONLY, J#SLPADR ;SETUP SCOPE LOOP ADDRESS 
TYPE MSG13 “£42 WRITE *#8" 
JSR Pc. JeTPDRV TYPE DRIVE TO BE TESTED 

Vv tPC)+,3(PC)+ ;INITIALIZE THE BLOCK NUMBER 


MO 

-BYTE 0,377 ;SET BYTE O TO O AND BYTE 1 
. WORD OCK 310 THE 1°S COMP. OF BYTE O 
MOV (PC)+,a(PC)+ SIN ITTALIZE THE FILE NUMBER 

-BYTE Q 377 5, ar, O TO O AND BYTE i 


« WORD 
LUNE 
“REWIND” TO “BOT” 


LLL LLL 
MOV jRO=1ST ADDRESS OF PARANETER BLOCK 
SR PC, J#REWIND REWI 


1S: STB SePARMEK {WAIT ON F 
BEQ 








BPL 43 ;BR IF NO ERROR 

JSR RO, d#CSRERR :GO TO CSR ERROR CHECK 

JMP aeSEOP :G0 TO END GRAM 
MLL TTT TTL 







LLL LLL LLL 


es: 







MOV #PARMBK,R ;RO=1ST ADDRESS OF PARAMETER BLOCK 
ISR PC Ahr ad GO TO WG ok - 
3S: TSTB  a#PARMBK ‘WAIT ON FLAG 
BEQ 3$ 
sBR IF NO ERROR 





isk RO 
JSR , O#CSRERR ;G0 TO CSR ERROR CHECK 


















OZTAEB.P “WRITE ONLY” ROUTINE 
e0se O04244 000137 O04406 JMP d¥SEOP ;G0 TO END-OF-PROGRAM 
2093 O04eSO 000137 004360 JMP JeCKEOTS 
2034 mpeg TEE 9 tagprtcemnesty ianneai tenes ws ihisanten 
eg oe oacet  E toa age 


Bt3939 opabee 001106 3 ath age SeeLPOOR ee ip S cope” LOOP ADDRESS 
004266 Ss: 


ae 
S 


1 27 1612 MOV #PARMBK , RO sRQ= ST ADDRESS OF PARAMETER BLOCK 
stat pps88 Mate porete JSR PC, J#WRITE i WROTE 

2102 001612 6S: TSTB =: BBPARMBK saIT ON FLAG 

ei03 O04 BEQ 6$ 

104 1 BPL 7§ ' 3BR IF NO ERROR 
2105 004037 005526 ISR RO, J#CSRERR GO TO CSR ERROR CHECK 
2106 004312 000137 oO4406 IMP aesEOP -GO TO END-OF-PROGRAM 

107 004316 090137 004360 JMP aSCKEOTS 
2108 004322 000004 7S: SCOPE 
si Pr pk bashes eae 
% 

2111 SALILILITTTALTALTAL TELAT ALT TATA TTA ATTAAALAL AAA 
2112 004324 062737 (PC)+,a(PC)+ s INCREMENT THE BLOCK NUMBER 
2113 004326 001 377 .BYTE 1,-1 
2114 004330 001 “WORD BLOCK 

211S OO4332 123727 001310 001306 CMPB = J#FILESZ,d#BLOCK sTIME FOR A FILE GAP? 

116 O04 bo3345 BGT 4§ BR IF NO 

117 o0434e2 ADD (PC)+,a(PC)+ * INCREMENT THE FILE NUMBER 
e118 004344 00! 377 -BYTE : r} 
st tea posse MOV rity. acres ; INITIALIZE THE BLOCK NUMBER 
2121 004352 000 377 ‘ BYTE 0,377 :SET BYTE O TO O AND BYTE | 
2lee 004354 001306 “WORD BLOCK -TO THE 1°S COMP. OF BYTE 2 
2le3 004356 000720 BR 2s START A TLE GAP 
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| 
| 


Me eee + —_-- . ov - 





TAL! DATA RELIABILITY 
DZTAEB.P1l 


turururururufururururururururuoroururufrurorururufruru 
NE ec hE Ee EE EE Bissonnette 
iter tap ant ttetet tr ietatr pint ited = itt th} 


furu 
moe & 


OOlei2 001264 
000400 174540 
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ii 





SILILIVULTILILTL ALA LAL ALAA LTDA 
SALILULTIITAAAT TAA TLATAT LAAT AAATAA AAA TAAAA AAAS 


-SBTTL CHECK “EOTS” 


5 RERRHAER ERE K KLARA ALA LEE AEE ERA EL RELE EEE LES EES E REALE LER ES EL ELEE 
7 HHH IH 


ieee A “FORMAT OR “WRITEONLY” PASS HITS “EOT” OR A 
"READONLY" PASS READS THE LAST BLOCK OF THE LAST FILE 
; THEY WILL COME HERE 


1. cevre? IS CHECKED 
A. (EOTS)=(MAXEOT) GOTO SEOP 
B. Me idnitnamaienests GOTO 2 


2. SWR<&> 
8. “Vs -- GOTO SEOP 
. NO == GOTO LOOPER 


epeeeraaeneenssnncennsancennssseeenesnenennssenennaaeen 


Q#EOTS, JUMAXEOT ;MAX. EOTS OCCURRED? 
GE SEOP :BR IF YES 
BIT #SWO8, JSWR ;I1F SWR<O8> = 1 
BNE SEOP ;GOTO END-OF-TEST 
JMP d#LOOPER ;NO--LOOP 












TAL] DATA RELIABILITY 


OZTAEB.Pil 


rm 
ro 
at 
= 


SIdsIaaVZIs SSSGFHREGH SSOVEAL oro 


rururururorurorurorrurorororurur 
RRR AAAS A SS A 
BORRLSHLSSBIRRLSV= 


ae 
: 


END OF PASS ROUTINE 


SEOP: 
oo0004 SCOPE 
5067 174466 CLR STSTNM © +. +sZERO THE TEST NUMBER 
7? 174460 INC SPASS $ INCRENENT THE PASS NUMBER 
042767 100000 174452 BIC ¥100000,SPASS ;;DON’T ALLOW A NEG. NUMBER 
005327 DEC (PC}+ : LOOP? 
000901 SEOPCT: .WORD 
003135 BGT SDOAGN 5s YES 
012737 MOV (PC)+,a(PC)+  $;RESTORE COUNTER 
000001 SENDCT: .WORD 1 
430 SEOPCT 
104400 004735 TYPE NDMG TYPE “END PASS” 
013700 oo0042 SGET42: MOV de42, RO ::GET MONITOR ADDRESS 
1525 BEO SDOAGN ::BRANCH IF NO MONITOR 
SOLLITTTLTTALATATAATALLAALLTAATAA TAAL AAA LALA TATA ATTA LALA SAAT 
TYPE END-OF-TEST STATISTICS 
UIUV LULL ALL LL ALLL 
012700 001612 MOV #PARMBK sRO=PARAMETER BLOCK ADDRESS 
004737 006746 ISR PC SEE ATKD ;START A REWIND 
104400 013005 TYPE MSGI ><CRLF>"##% END-OF-TEST *”*" 
104400 013032 TYPE s<CRLF>"SOFT ERRORS=" 
013746 001206 MOV rare -(SP) PICKUP SINGLE PRECISION BINARY NUMBER 
004737 007356 JSR PC, JuSSB2D *CHANGE IT TO DECIMAL ASCIZ 
004737 007412 JSR PC, a#SSUPRS TYPE WITHOUT LEADING ZEROS 
104400 013050 TYPE S63 :<CRLF>"HARD ERRORS=" 
013746 o0i210 MOV 3eHARDNM, -(SP) ; PICKUP SINGLE PRECISION BINARY NUMBER 
004737 007356 JSR PC, a8SSBeD IT TO DECIMAL ASCIZ 
004737 007412 JSR PC; aaSSUPRS i TYPE WITHOUT LEADING ZEROS 
104400 013066 TYPE s<(CRLF>"BYTES READ=" 
012746 001214 Wes TTL -(SP) ‘GET RDDRESS S OF DOUBLE PRECISION BINARY # 
004737 007162 JSR , a#SD82D *CHANGE IT TO DECIMAL A 
004737 007412 ISR PC; a#SSUPRS TYPE IT WITHOUT LEADING ZERO 
104400 0131 TYPE NEGS s<(CRLF>"BYTES WRITTENS" 
01274 Oo0l22 MOV hWEYTTL, -(SP) :GET ADDRESS OF DOUBLE PRECISION BINARY # 
737 007162 JSR PC, 28$0B2D "CHANGE IT TO DECIMAL ASCIZ 
004737 O0741e2 JSR PC; J¥SSUPRS ‘TYPE IT WITHOUT LEADING ZERO 
013123 TYPE MS36 s <ORLFD"TAPE FASSES=" 
013746 OOlele MOV QEOTS -(SP) PICKUP SINGLE PRECISION BINARY NUMBER 
004737 (007356 JSR aesSB2eD CENCE IT TC DECIMAL ASCIZ 
004737 007412 JSR 





MAINDEC-11-DZTAE-B MACY11 27(732) 25-SEP-76 11:17 PAGE Se 


.SBTTL END OF PASS ROUTINE 


PPT sii ddcbdetstbedohdstadahebatalelelohatahatalatsbabshababekalalatetatalalalatalalalebatahelalalel dellalallalaldiald 
HINCRERENT Ms 3 PASS NUMBER ($PASS) 


TYPE " 
i eIF THERES : MONITOR GO TO IT 
SN’T JU 


IF HE TO START 
IF IT IS DESIRED TO HAVE A BELL INDICATE THE “END OF PASS” LOCATION 
*$ENDMG CAN BE CHANGED TO 7. 
















BC’ SESSUPRS ;TYPE WITHOLIT LEADING ZEROS 





TAl1 DATA RELIABILITY 
OZTREB.P11 


104400 
0 


MAINDEC-11-DZTAE-B 
END OF PASS ROUTINE 


013141 
001236 


007356 
007412 
013156 
001310 
007356 
007412 
001204 


001000 174250 


000176 174236 


000042 


377 
Pa o4e21 
0001 


fur 


Rata 
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TYPE MSG7 ; <CRLF>"FILES/PASS=" 

MOV Q¥LASTFL, RO sPICKUP_THE LAST FILE NUMBER 
INCB = sAdD i TO nok IT # OF FILES 
MOV RO, -(SP) ;PUT IT ON THE STACK 

JSR. PC, aesSBeD SCHANGE IT TO DECIMAL ASCIZ 
JSR PC} aeSSUPRS :TYPE IT WITHOUT LEADING ZEROS 


TYPE ; <CRLF> "BLOCKS /FILE=" 
4 air iesz -(SP) PICKUP SINGLE PRECISION BINARY NUMBER 


SB2D *CHANGE IT TO DECIMAL ASCIZ 
ISR PC %aSSUPRS esti; ‘TYPE WITHOUT LEADING ZEROS 


TYPE ,SLF 
CLLEGE! | ddd dddddddddddddddddddddda 
CHECK HALT AT SWITCH 


ND-OF -TEST 


MUMIA ine meee oe meee ceeee ne 


¥SWO9, ISWR HALT AT END-OF-TEST? 
BEQ 100$ 'BR IF NO 
HALT ;YES 
CMP #SWREG, SWR sUSING Su SUITCH REG? 
BNE 20$ :NO= GET 0 
GTSWR :GET VALUES 
208: : CONTINUE 
MOV a#42, RO ss INSURE RO CONTAINS THE MONITORS 
BEQ SDOAGN * RETURN ADDRESS 
RESET :CLEAR THE WORLD 
SENDAD: JSR PC, (RO) 7:60 TOM 
NOP ;;SAVE RO 
NOP : FOR 
NOP *:ACTIL 
SDOAGN: : 
JMP a(PC)+ ;;RETURN ~ 
SRTNAD: .WORD STR RT 
SENULL: .BYTE ;NULL CHARACTER STRING 
SENDMG: .ASCIZ 7485 119 /END pase) 


~ --++ == + SS 
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OZTRES.Pil SCOPE HANDLER ROUTINE 


eave -  ,SBTTL SCOPE HANDLER ROUTINE 
e248 LTaTe ROUTING CONTROLG THE LOOPING OF GUDTESTS TT WIG TNCRETEN 

2249 :iTHIS ROUT: NE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 

2250 #AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
2252 :eTHE _SHtTCH OPTIONS PROWIDED BY THIS ROUTINE GRE: 

2253 *SWi4=] LOOP ON TEST 

2254 ALL 

2255 :% SCOPE ; ;SCOPE=IOT 

2256 

2257 00% SSCOPE: 

2258 O04 104405 CKSWR 5 TEST FOR CHANGE IN SOFT-SWR 

2259 O04752 032777 O4O0OC 174160 1S: BIT #81714, OSUR $3LOQP ON PRESENT TEST? 

2260 OO476D 001025 BNE i YES TF = 

2261 paseeaSTART OF cboe FOR THE XOR tts Eatasse” 

2262 OON7E2 COD4I6 $XTSTR: BR bs iF RUNNING ON THE “XOR™ TESTER CHANGE 
2263 i THIS INSTRUCTION TO A (NOP=240) 
ees OON7eN 01374% ooc004 MOV asERRVEC -(SP) COVE THE CONTENTS OF THE ERROR VECTOR 
2265 01 005010 oo0004 MOV S,a8ERAVEC ::SET FOR TIMEOUT 

2265 004776 pies 3s 177060 TST 3 ees +: TIME OUT ON XOR? 

2267 O0S00¢ O1ebs/ po0004 MOV ep) DRERRVEC ;:RESTORE THE ERROR VECTOR 

2268 00500 BR sSviab 33G0 TO NEXT TEST 

2269 OO0S010 Se2626 cs: CMP (SP)+, (SP)¢ *CLEAR THE STACK AFTER A TIME OUT 
2270 b0=0 ie Oleb37 poco4 MOV (SP )+, JS8ERRVEC iE RESTORE THE VECTOR 

2271 00501 BR SOVER’ "LOOP ON THE PRESENT TEST 

2272 005020 6$:;s8eeeEND OF CODE FOR THE XOR’  +ECTEReseRe 

2273 105267 174056 SSVLAD: INCB 2! STNM ;;COUNT TEST NUMBERS 

2274 011667 174056 MOV (SP), SLPADR *:SAVE SCOPE LOOP ADDRESS 

ee75 005030 105067 174047 CLRB = SERFLG ERO THE ERROR FLAG 

227) 005034 016777 174042 174100 SOVER: MOV STSTNM, QDISPLAY ;;DISPLAY TEST NUMBER 

2277 OOSO42 O1E716 174040 MOV SLPADR; (SP) FUDGE RETURN ADDRESS 


e278 05046 00000e RTI ;3FIXES PS 





ie 5 
225) BND LORD THE ERROR FLAG (SERFLG) INTO DISPLAT Is:0B) 
i 

| 

| 

j 

} 

} 

| 

| 

| 

} 
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» 


MAINDEC=11-O2TRE-8 
ERROR HANDLER ROUTINE 


ae 
in" 


-SBTTL ERROR HANDLER ROUTINE 
5 EERELEE RARER REARS EEA EER EEE SE EERE EEE EEE EE EEE ERE EE REESE ELLE REESE 


a3 


a 


$THIS ROUTINE WI 
*SAVE THE ERROR 


MEN FLAG HE COUNT, 
EM per AND THE ADDRESS OF THE ERROR CALL 


;#AND GO TO TYPERR ON 
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
#SW15=1 HALT ON ERROR 


ate 
aR 


b 


8-8 


aerevne 
ig 


BEB I ua voRceae ene 


BERBERS 
SBeRcRe 
ae NNN 
Baez 


a bo 
oletotgtotaiatoiatatctataiatotatata 
O-= B-2 = b= 0-2 02 6 F b= b— F-—= = — P— = = P= FF 

— =i 
4 3am 
Pea 38 


ge 


ee 


o 


8 
Eas 


PUNIFECRKLVFFSRERGOK 


pint ei esi hee 
WONTUNE WHO 


: 





en 


INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 
N ;sERROR=EMT AND NsERROR ITEM NUMBER 

TEST FOR CHANGE IN SOFT-SWR 
SERFLG 3;SET THE ERROR FLAG 

>:DON’T LET THE FLAG GO TO ZERO 
STSTNM, DISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG 
#BIT10, dSWR >:BELL ON 9 
1s 33NO - SKI 

s;RING BELL 
SERTTL >:COUNT THE NUMBER OF ERRORS 
(SP) SERRPC ::GET ADDRESS OF ERROR INSTRUCTION 
A ;;STRIP_AND SAVE THE ERROR ITEM CODE 
881713, aSWR >:SKIP TYPEOUT IF SET 
20s ;;SKIP_TYPEOUTS 
PC. TYPERR :3G0 TO USER ERROR ROUTINE 
, SCRLF 
aSWR s;HALT ON ERROR 
3$ ::SKIP IF CONTINUE 

:sHALT ON ERROR! 

2: TEST FOR CHANGE IN SOFT-SwWR 
#SENDAD, 2842  ;;ACT-11 AUTO-ACCEPT? 
S$ BRANCH IF NO 

33YES 

; ;RETURN 
(207) <377><377) $:ASCII CODE FOR BELL 











£2s5 
i 


5 
a) 


i, 
u 
n 
= | 
ao 
ie 
—b— 
o 


Bake 


— 
BE 


pa 
— 


2333 


os ee 


os es 
pie 


ae 
ee 


an oi 


Ata 


S310 
005312 
005314 
005316 
DOS 3¢ 


—858=5 
‘ee 


hes 
eal 


SSeS 


2 


SR a Cane eee ee eae 





TAil DATA RELIABILITY 
OZTREB.P1l 
ze 
es 
cu : 
23293 
ae 
2332 
| 
| 
| 
| 


ee ee a 
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$s RRESRERSELERELARRA LEASE SAAR ELA LEAL SRAAALALALAALSLLAASELALERSLSLS 


001203 TYPERR: 


> THIS ROUTINE WILL TYPEOUT THE ERROR MESSAGES 


sTYPE “CR” & “LF” 

Ute 2 

;SAVE R1 

;PICKUP THE ITEM BYTE 
sADJUST THE INDEX SO IT 
sWILL WORK FOR THE 
sERROR TABLE 

;GET THE ERROR TYPE 


GET THE ERROR NUMBER 
FORM THE TABLE POINTER 


;PICKUP “ERROR MESSAGE” POINTER 
sTYPE “ERROR MESSAGE” 

; TYPE ™ & “LF” 

sPICKUP “DATA HEADER” POINTER 
sTYPE “DATA HEADER” 


;TYPE “CR® & “LF* 
;GO0 TYPE THE DATA 


eee cae ae Leaps ee ke Be ee 


E CRLF 
MOV rey 
MOV Rl: -(SP) 
CLR -(SP) 
001114 MOVE  aeSITEMB, (SP) 
DEC (SP) 
ASL (SP) 
ASL (SP) 
ASL (SP) 
000001 MOVB  1(SP),R1 
MOVB «(SP RO 
oos242 ADD 1$(R15,RO 
BR 2s 
1S: ITEMSO 
ITEMS1 
ITEMS2 
pooo0e2 2s: MOV (RO)+, 3$ 
TYPE 
38: 0 
001203 TYPE SCRLF 
poo0d2 MOV tRO)+, 4S 
TYPE 
4g: 0 
— ao atta 
BR ERROR 
BR ERROR? 
ERRORO: MOV R2, -( 
MOV (RO)+,R1 
aa 
“ ¢ Ke PGI 
BEQ EREXT! 
TSTB ss (Re) + 
BNE 38 
MOV (RO), -(SP) 
TYPOC 
BR is. 
007162 Be IE ROR aeSDB20 
Bp0004 ADD #4! (SP) 
oo0nde MOV (SP)+, 4S 
TYPE 
4§; -WORD O 
ER 1S 


SBICKUP THE “DATA POINTER” 
tPICKUP “FORMAT” POINTER 


set SS OF DATA WORD 
;GO0 TO EXIT IF O 
;TYPE DECIMAL OR OCTAL? 


33 SAVE RB FOR TYPEOUT 


33G0 TYPE--OCTAL ASCII(CALL DIGITS) 
;G0 GET NEXT DATA WORD 


CHANGE NUMBER TO ASCIZ 
TYPE 6 DIGITS 


CALL TYPE ASCIZ MESSAGE ROUTINE 
ROORESS OF _ASCIZ aoa 








TAL] DATA RELIABILITY 
ooteb Pit 
2372 
2373 011001 
e575 013146 
376 104401 
a 012767 
2379 104400 
2380 
2381 
001412 
4 
1 
Tete? 





ee es 


OOS4SE 

O0S460 

boeed 81 
OOS466 asice 
Gosze BlSie7 
005474 l 


r=) 
bs 
— 
= 3 
=) 


2B 
#5 


3 


z 


3 





Ree Ptaeer C Ebner ener eres t et picts 


a 
= 


es 


ERAOR TY 


1-DZTAE- 
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TYPEOUT ROUTINE 
LOROR eR RO eet CKUP THE “DATA POINTER” 
ERRORI: MOV (RO) RI P THE “DATA POINTER” 
MOV (R154, -(SP) SAVE alii FOR TYPEOUT 
TYPOC ::G0 TYPE--OCTAL Sey p1G175) 
p00003 000006 MOV 83,28 Hy g Spaces “a 
*AND 2 Re e's Fes 
013277 18: TYPE MSG14 7” 
DEC tpC)+ “TYPE ANOTHER # ? 
2S: .WORD OQ 
of tai) (SP) if oT BP K! S  ] 
007162 mee PC, ax$0B2D CHANGE 1 Bee THAL CIz 
o00004 ADD #4’ (SP) ism & TYPE THE LAST 6 DIGITS 
000002 MOV (SP)+, 3$ *SAVE ADDRESS OF ASCIZ STRING 
TYPE “CALL THE TYPE ROUTINE 
38: gliORD 0 sPOINTER GOES HERE 
4§: (R1)+.R TION I 
oos4s& o000d2 ROY BABPUNtRLD SS ate Fine +, NPEX aoe 
SS: TRO 0 ie ice pol ‘ INTER GOES HERE 
BRE conTAthio f DIFFERENT 
sTHIS TABLE CONTAINS THE POINTERS TO THE’ DI ASCIZ MESSAGES 
THE FUNCTION BEING PERFORMED WHEN THE ERROR OCCURRED. 
BADFUN: MXWFG : WRITE-FI 
MXWRIT : WRITE 
Rere : -SPACE-F ILE-GAP 
eee : KE EHO FILE 
SPACE -FuD-BEKe 
MXRWND : IND 
gran e re LI ANTES ame CEU tk pata POINTER 
OR2: MOV iP THE DATA POINT 
1S: ist ‘L DATA TYPED? 
Sa ere -(SP) $3SAVE al ie FOR TYP 
nem TyPoc eal 3360 TYPE--OCTAL aSCTT ALL DIGITS) 
BR is ‘LOOP 


EXT MOM (SR RR neon Re 


XT1: MOV (SP)+,Re Ss 
XTe: MOV (SP)+, RI sRESTORE RI 
_ MOV (SP)+,RO RESTORE RO 
RTS Cc ;RETURN 
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SOOLASLALSATATTLAAAATATATTATAT AAT TAAATT ATTA SAAS AAA ALATA AAAS AAAS 
ett “DETERMINE CONTROL AND STATUS ERROR 10777777 


DETERMINE CONTROL AND STATUS ERROR 


sige DOSE e6 113737 OC1304 OOl162 CSRERR: MOVE as#FILE,asSREGO :GET THE FILE NUMBER 
il 001306 OO1166 MOVB  @#BLOCK, d8SREGC -GET THE BLOCK NUMBER 
e428 o0ss42e Ol 007160 OeFUNLOC, -(SP) GET THE LAST FUNCTION 
e429 005546 042716 177761 BIC #tCFUNCTION, (SP) “CLEAR AWAY THE JUNK 
2430 o055S2 011637 001172 MOV (SP), J#STMPO :SAVE THE FUNCTION CODE 
2431 OOSSSE 113766 OO0l612 000001 MOVB a8PARMBK, 1(SP) ‘COMBINE THE ST/ER WITH 
ete posse Oiebgi MOV (SP)+,R1 THE FUNCTION 
CL -(SP) ;FIND OUT WHAT CAUSED THE ERROR 
34 001000 BIT SOFFLINE, RL : OFF LINE? 
3s I BNE 6 *BR IF YES 
2436 1 010000 BIT #WRTLOCK,R1 *WRITE LOCK? 
2437 005602 001021 BNE 3 *BR IF YES 
2438 005604 032701 020000 BIT #LEADER,R1 :BOT/EOT? 
2439 005610 001015 BNE 4§ :BR iF YES 
2440 005612 032701 o04000 BIT #FGAP, RI ;FILE GAP? 
2441 005616 00101! BNE 3$ *BR IF YES 
ete 005620 636701 002000 BIT STINERR, Rl jTINING? ‘ 
pans poeese nee 040000 BS #CRCERR,R1 *BLOCK CHECK? 
2445 005632 001001 BNE 1$ *BR IF YES 
cup Bere Bele fe ie it 
1 1$: NC (SP) : 5 = CRCERR 
e448 005216 2s: INC (SP) : 4 = TIMERR 
Sieg poses | poesie it an (ant + 3 = Cea 
16 ug: NC (SP) 2s 
eel 005216 5s: INC (SP) : | = WRTLOCK 
ES 106316 ASLB = (SP) . sPOSITION INDEX * 
ADD (SP)+,PC *BR TO THE ROUTINE 
2455 005654 000405 BR OL. . 
BR WL. ERR 
1] BR cL. RR 
BR FG. 
2459 005664 000463 BR TM. ERR 
2460 bosbbb OO0464 BR BC.ERR 
1 005670 000472 BR X.ERR 
005672 104101 OL.ERR: ERROR 101 ;DRIVE IS OFFLINE 
2464 005674 000200 RTS RO 
Suee O0SE76 1041 WL.ERR: ERROR 102 ;DRIVE IS WRITE LOCK 
ete? poesre RTS RO 
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2737 000000 001172 CL.ERR: CMP aXWFG, I8STMPO sFUNCTION “WRITE FILE GAP"? 
ch ETE BILE LE: BE Ee 
005712 162737 ; SUB (PC)+, 3(PC)+ sDECREMENT THE FILE NUMBER Swe. 

73 bo57 14 901 377 -BYT « 

74 16 O01 “WO tL 
2475 005720 113737 001304 001236 MOVB geFTL E, J8LASTFL ;SAVE LAST FILE NUMBER 
2476 005726 113737 001310 O01234 MOVB ite&z, aL ASTBK AND LAST BLOCK NUMBER 
2477 005734 001234 DEC rh 
2478 005740 0004 BR pid ‘OR IF NO 
e793 pos7ie 022737 ooo0c2 001172 2s cup BXURITE, , 28S TMPO sEUNG TO “WRITE”? 
2481 005752 113737 001304 001236 MOVB  @SFILE, O8LASTFL *SAVE LAST FILE NUMBER 

Be l SUB (PC}4, a(PC)+ *DECREMENT THE BLOCK NUMBER 

1 377 YTE 1l,- 
001306 * WORD OCk 
2485 005766 113737 001306 001234 MOVB @#BLOCK, J#LASTBK ;SAVE LAST BLOCK NUMBER 
e486 005774 163737 007154 001220 ous SECECNT  Q4HBYTTL ; SUBTRACT T RESIDUE COUNT FR ROM ; 
ml 

Ea 14 BO60C ake raed COM Chetan PIF NO Blocks IN THe ILE 
2489 OO060l2 001737 BEQ *BACK TO LAST FILE 
e430 906014 deeded 3 C (RO)+, (RO)+ ‘ADJUST FOR RETURN 

1 O06016 37 O0lel2 INC aseors :COUNT END-OF-TAPE 
2492 006022 O00401 BR S$ 
2493 006024 104103 4g: ERROR 103 "CLEAR LEADER” ERROR 
2494 006026 000200 cs: RTS RO * RETURN 
sue 006030 104104 FG.ERR: ERROR 104 "FILE GAP ERROR” 
Exe 006032 O00200 RTS RO 
2499 006034 104105 TM.ERR: ERROR 105 TIMING ERROR 
2500 006036 000200 RTS RO 
Sens Doebts fecrse oonoy ooze POCERRY ERROR 10e on aasTHPO tTF FUNCTION isn't A READ 
Sepa bones | bai0e1 BNE L Sepeeconree AKE THE “EOP” EXIT 
2505 006052 027020 CMP (RO)+, (RO)+ ADJUST FOR RETURN 
2505 006054 1S: RTS RO 
ae 04107 X.ERR: ERROR 107 UNKNOWN INTERRUPT 
5203 DOEbED Aro AD 
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DETERMINE CONTROL AND STATUS ERROR 


T 
2510 
esil 
edie 
2513 
- 2514 
2515 
e516 
2517 
e518 
2519 


a 
ae 


SOR URS Re Sea MROSANNN 


Hh Hed 
Bae 


Heeaeae 


2 


bs b= b= b= b= = 0 b= be he 
as 


| pupnononogonon 
statat=t=f=t=}=}=f={=f=: 
RSEEVFSRLERSRK 


3 FERRIES 69 J EE ER REESE EEE AE EEE EEE EEE 
5 SESE SESE IESE AEH HE HEE HEHEHE HEHE EE HR HE REE EEE EEE AEE EEE EEE 
-SBTTL ROUTINE TO SETUP FOR A WRITE OPERATION 


; THIS ROUTINE WILL SETUP THE BYTE COUNT, DETERMINE THE PATTERN TO 
3BE WRITTEN ON TAPE, ADD THE SIZE OF THIS BLOCK TO THE TOTAL 
SET een E> TRANSFERRED AND CALL THE ROUTINE TO FILL THE 


; CALL 
: ISR PC, aaSETUPW 
SETUPH: MOV J#BLOCK, RO ;GET THE BLOCK NUMBER 
BIC #tCiS. ,RO sKEEP MAX PATTERN 
ADD BLKSZ(RO) . daWBYTTL "ADD THE BLOCK SIZE TO THE TOTAL 
ABC DeWBYTTL +2 ‘NUMBER OF BYTES WRITTEN 
MOV BLKSZ(RO), aePARMBK+6 § ;SET THE BYTE COUNT 
MOV PATS(RO),RO :GET PATTERN POINTER 
JSR PC -aeF ILL GO FILL WRITE BUFFER 
RTS PC * RETURN 
F SERLEKEE RELEASE RSL ELE ELL EF LSE ALLE ERASER KLE AEK EE KFERAERL EERE HKTSE 
-BBTTL ROUTINE TO FILL THE BUFFER BEFORE A WRITE 
: MOV #PATADR, RO 31ST ADDRESS OF 8 BYTE PATADR 
: ISR PC, J8F ILL 
>THE BUFFER IS FILLED AS FOLLOWS: 
‘BYTES DATA 
:0001 FILE NUMBER 
70002 FILE NUMBER COMPLEMENTED 
+ OOD BLock NUMBER COMPLEMENTED 
Bob BAYS PATTERN 
0006 baTA PATTERN 


# 

# # * 
+ # # 
1027. DATA PATTERN 
31028. DATA PATTERN 





1S: 
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TREB.P11 ROUTINE TO FILL THE BUFFER BEFORE A WRITE 
2566 O06164 012022 MOV (RO)+, (R2)+ sINTO THE BUFFER AREA. 
2567 OO6166 OleDee MOV (RO)+; (Ro)+ 
2568 606170 Oledee MOV (RO)+; (Re)+ 
e569 006172 1 DEC RI 
174 001371 BNE 1$ 

2571 006176 012603 MOV (SP)+,R3 POP STACK INTO R32 
527¢ NO6200 1gboe MOV (SP)+,Re 3 3POP STACK INTO ae 

AObeO2 + O1eb01 MOV (SP)+°RI :POP STACK INTO RI 
2574 006204 012600 MOV (SP)+’RO ::POP STACK INTO RO 
2575 006206 RTS PC 
5oc8 ; RRELLSLALLAAALE LEAS LEAL RELL RALEL ERE LEAL AA LEL ELE LALLA LELERELLEE 
2578 $ 2B EHHHEEE HEHEHE HEHEHE 
2579 ijaees ROUTINE TO SETUP FOR A READ 
Seat sTHIS ROUTINE WILL SETUP THE BYTE COUNT AND ADD THE SIZE OF THIS 
2582 “BLOCK TO THE TOTAL NUMBER OF BYTES READ. 
Seas sCALL 
2585 : JSR PC, SETUPR 
Soe 
2588 O06210 013700 001306 SETUPR: MOV JeBLOCK, RO GET THE BLOCK NUMBER 
2589 O06214 042700 177760 BIC ##C1S. ,RO *KEEP MAX PATTERN 
2590 006220 006300 ASL : 
Seq 006230 boss? Obiele Abe CSGRBVTTEade tt  ’ = ERUMBER OF BYTES READ. TOTAL 
S24 Dobe34 016037 OOlale 001620 MOV BLKSZ(RO) , @8PARMEK +6 ise! ne BYTE COUNT 








25% . os RELESESHS SEXES REEL E REESE REL EER LS KSEE SEES SHEARS RLE HF ERE EE LESSEE EERE 
oo37 *SBTTL ROUTINE TO CHECK FOR SYNC PROBLEMS 
25993 sTHIS ROUTINE CHECKS THE FIRST FOUR BYTES OF THE DATA 






fad 0 INSURE THE PROPER BLOCK WAS READ 





-C 
: JSR PC, J¥SYNCK 
: NORMAL RETURN 
: ERROR RETURN 
2610 
Sele 
seis 006244 012700 013440 SYNCK: MOV #BUFFER, RO sADDRESS OF FIRST WORD 
cle Bees Bust my, got BAP Baulyree he? 
2616 006254 062001 ADD (RO)+,R1 : T OF BYTE O 
2617 006256 005101 COM Ri 
261 Dobe iaat BNE 2s ;BR_IF FILE NUMBER READ WRONG 
cree BOESEN O00SDI ie ae SHREK BLOCK, 8 bere 
2621 006266 062001 * ADD (RO)+,R1 *COMPLEMENT OF BYTE 2 











3 
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g 
8 


~4 
-—D 
“B 


Reece 
# 
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SEPP BRSRSs 
ge 282o 


ed 
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ss 


Sy 
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me 


ee 
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PE 
88 
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os 


MAINDEC-11-DZ2TAE-B 


MACY11 27(732) 


ROUTINE TO CHECK FOR SYNC PROBLEMS 


RRB PRE 


: 


COM Ri 
BNE 2s BR IF BLOCK NUMBER READ WRONG 
CMP DBLOCK, -(RO) *MAKE SURE PROPER BLOCK HAS READ 
BNE ‘BR IF AT THe WRONG 
che QUF ILE, ~(RO) *MAKE SURE P FIL ta 
EQ $ BR IF IN THE” PERE ILE 
1$: MOVB  d8FILE, aaSREGO 
MOVB  @aBLOCK, a#SREG2 
MOVB SABUEEER aeSTMPO 
MOVB aaB BUEFERtE, aesTMPe 
ADD #2, ( SP) TAKE ERROR RETURN 
2s: RTS P * RETURN 
$ Th ROUTINE 10 CIECK TIE REPO DAA SS eee 
*SBTTL ROUTINE TO CHECK THE READ DATA 
; CALL 
: JSR PC, DATCMP 
: NORMAL RETURN sERROR FLAG=0 AND DATA IS GOOD 
: ERROR] RETURN *DATA IS BAD (ERROR FLAG=?) 
: ERROR2 RETURN :DATA IS GOOD BUT ERROR FLAG=1 
DATCMP: MOV JeBLOCK, RO :GET THE BLOCK NUMBER 
BIC ##CiIS. ,RO ;KEEP MAX PATTERN 
MOV BLKSZ2(RO) RI t PICKUP THE BLOCK SIZE 
MOV #BUFFER, Re FIRST ADDRESS OF DAT 
HOV wild, *SETUP TO CHECK FILE AND BLOCK 
1S: DEC sCOUNT THIS BYTE 
CMPB fh2 4, (R4)+ ; CHECK IT 
BNE 4g BR IF BAD 
DEC R3 + ACAIN? 
BNE 1$ *BR IF YES 
2s: MOV #8. .R3 GET NUMBER OF BYTES/PATTERN 
MOV PATS(RO),RY ;GET FIRST ADDRESS OF PATTERN 
3S: DEC RI *LAST BYTE BEEN CHECKED? 
BLT S$ BR IF YES 
CMPB Os (R2) +, (R4)+ *NO=-CHECK IT 
BNE 4§ BR IF BAD 
DE Ra SEND OF PATTERN? 
BG BR IF NO 
BR 2s * YES 
4g: CLR JeSGDDAT 
CLR aeSBDDAT 
MOVB  -(R4). a8SGDDAT ;SAVE GOOD DATA 
MOV R4, a#SGDADR : GOOD ADDRESS 
MOVB -(R2). J#SBDDAT sSAVE BAD DATA 
MOV R2,a VE BAD ADDRESS 
NEG RI >SAVE THE BYTE NUMBER 
ADO BLKS2(RO), RI 
MOV RI, J#BYTNUM 
me Setee Snel 
ADD #2, (SP)’ sSETUP TO TAKE ERRORI EXIT 
BR 6$ TAKE ERRORI EXIT 
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COUNT HARD ERROR 


5p RRMA RRR HEE ERA R KERRIER ERE R EEE RHEE EEE EE EEE REE EELS 
-SBTTL SAVE AND RESTORE RO-RS ROUTINES 
33 ee ee ee anes 


TA RELIABILITY 
REB.P11 


: 


= 
a 


ee 


OOOO000000 
foo bas baa boa bs boo Bo be bo be 


aay 
Sea che 


ROO RRRRE 


3 


ONOKO0OO00000 
— 


GO bb be Bs Fs ee 


Ba 
RS 


: SAVE 
*CALL 


?* _SAVREG 
;*UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE: 


& 
:#TOP=--(416) 
3% +2---(+18) 


sh +4---f6 
3# +6---R4 
3# +8---R3 
3; #+10---Re 
;#+12---R1 
3 #+14---R0 


SSAVREG: 


;*#RESTORE RO-RS 
; *CALL: 
RESREG 


+ 
SRESREG: 
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(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,22(SP) 
(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,Re 
(SP)+,R1 
(SP)+,RO 





;;RESTORE PC OF CALL 
; ;REST 
















;;PUSH RO ON STACK 
;;PUSH R1 ON STACK 
se Re TACK 


S TACK 
;;SAVE PS OF MAIN FLOW 
;;SAVE PC OF MAIN FLOW 


3;9AVE PS OF CALL 
;;9AVE PC OF CALL 
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gcee 33 KE REKHE KK KEES LE SEL EK SLEEK LEEK LEK A LAL REE EE EEEEEERE REE LA LE EL ELE 
ecb .SBTTL CASSETTE PRIMITIVES ROUTINE 
¢ 
e768 : sCALLED VIA JSR PC, (FUNCTION) 
2769 ;WITH RO POINTING 70: 
2770 
Bae : OE OD DRIVE # (O=A, 1=8 
ae : “WORD POINTER. 9 “StaTUs ERROR BYTE 
2774 : “WORD  BUFFE 
2775 3 : “WORD BYTE Rou 
soe 606712 010746 WEG MOV PC, -(SP) » WRITE A FILE GAP 
2778 006714 Oo0415 FUNTAB 10tom : 
006716 g10746 WRITE: MOV FC SP) ; WRITE A BLOCK OF DATA 
evel 006722 : to? He READ MOV FC SP) ; READ A BLOCK OF DATA 
2783 006 Bare BSFG HOV FC (SP) ; BACK SPACE A FILE GAP 
2785 O0b7 32 O10746 BSBC: MOV PC. (SP) ; BACK SPACE A BLOCK GAP 
ere? 006/36 pOOrae ‘3 SFFG: HOV FC = (SP) ; SPACE FORWARD A FILE GAP 
e783 Obb 2 Oo7ae es SFBG: MOV PC =(SP) ; SPACE FORWARD A BLOCK GAP 
279 ate REWIND: MOV s REWIND TO BEGINNING OF TAPE 
Ae bores leevie 006714 IOCOM: SUB oat (SP) pF On STACK IS USED TO DETERMINE 
a 756 ie O00040 172254 CHKRDY: BIT $0  sTACSL *READY BIT UP? 
2795 764 te BEQ CHKRDY “WAIT oT 
2796 00676 Diebb? 000166 MOV LSP) CUNO :PUT FUNC. IN BITS 1-3 OF FUNLOC 
Shag 006774 010046 MOV RO’ -(SP) 
feat Girone lest BOE my april Fle YoTN eae Mo Polk 
2801 007005 105031 CLRB acRL)4 + ZERO oF ERR BYTE 
eens 55 Oo7ote 153067 000143 CHANOK: BISB (RO) + FUNLOC#L COPY CHAN. NUM. TO FUNC. WORD 
cape ears it 012061 oo000e2 MOV (RO)+,2(R1) ;BUFF. ADR. 
2806 007024 011021 MOV (RO), (R1)+ BYTE COUNT 
2807 007026 005721 TST (R1)+ 
ene 007030 152711 000101 | BISB #101,(R1) 3900 INT, pfNOBLE AND GO BITS 
2819 007034 011177 172200 DOFUN: MOV (R1), ATACSL “START THE FUNCTION 
2811 007040 012600 MOV (SP)4,RO 
2812 007042 O12601 MOV (SP)+'Ri 
2813 007044 O00207 RTS PC 
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2820 007046 pe 
Bees Ouroee Ole7de 17eus2 


e823 007056 Q1e701 007154 
e8e4 007062 1 







2e8e8 007072 OSe704 000001 
e8e9 






2833 007106 000002 

2835 007110 005321 

2836 O071le 100412 

2837 007114 O3e71le O00004 
2838 007120 001003 

2839 O07lee 113177 172114 
2840 007126 000402 

2841 007130 117731 172106 
e84e 007134 O05e41 

2843 007136 000402 

e845 007140 OSe7le 000020 
2846 007144 

2847 007144 012602 

2848 007146 012601 

coco 007150 o0000e 





2851 
e8se 
2853 
2854 Ores 000000 
2855 154 000000 
e8S6 007156 000000 
e857 007160 000000 





: —\— 
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5p RRRERERALKE RARE LAER E REL ALE REALE EER LL EERE ERLE ELLER ERE ELERE ER ELE 


5 

SBTTL CASSETTE INTERRUPT HANDLER 

SASINT: 
MOV R1,-(SP) ;;PUSH R1 ON STACK 
MOV Re ~(SP) ;;PUSH Re ON STACK 
MOV TACSL; Re 
MOV ¥CBCNT,R1 ;PARAM. BLOCK 
TS7B Ss (RB) ‘TRANSFER REQUEST? 
BMI TREQ sYES 
MOV (Re), RY 
SWAB RY | 
BIS #1,R ;SET THE DONE BIT 
MOVB 4: a-(R1) “LOAD ST/ERR BYTE 
CLRB (2) ‘TURN OFF INTERS. 
MOV (SP)+,Re ;;POP STACK INTO Re 
Mov (SP)+,R1 :;POP STACK INTO RI 


+REQ: pee (RLS 


MOVB @(R1)+,aTADBL 
RWDONE 

READR: MOVB a@TADBL,a(R1)+ 
RWDONE: INC -(R1) 

BR BACK 


RWILBS: BIS #20, (R2) 

BACK: 
MOV. (SP)+,R2 
(SP)+;RI 


MOV 
RTI 


t CASSETTE INTER. HANDLER PARAM. BLOCK 


daspaR: .WORD 
CBCNT: “WORD 


0 

0 
-WORD OQ 

FUNLOC: .WORD 0 


WHEN COUNT NEG., DONE 
*CHECK READ OR WRITE FUNC. 


;WRITE BYTE 

sREAD BYTE 

:BUMP ADDR. 

:GET BACK 

sINIT. LAST BYTE SEQ. 


;;POP STACK INTO Re 
;;POP STACK INTO Rl 


;STATUS/ERROR POINTER 
;WORKING BYTE COUNT 

;HORKING BUFFER ADDRESS 
;FUNC. WORD BUILT HERE 





















o— 


Pt Be] 


OLTAEB.P1! . CASSETTE RUPT HANDLER 
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£ 5s PLESAELSHESTEEFERELALSASAESESALEREE REL ELE LALA SSA SLERELSLEA FLEAS 
"SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


£ y RERERHAES EA SLSS ES SSSAALAAALSLA LASS HESALSLALSASESESEAELELSE RFE SLS 
s#THIS ROUTINE WILL CONVERT Q 32-BIT BINARY NUMBER TO AN UNSIGNED 
?#DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
+; POSITIVE, 

ov #PNTR, -(SP) ;:POINTER TO LOW WORD OF BINARY NUMBER 
77 JSR PC, as$0B2D 

RETURN ;;THE FIRST ADDRESS OF ASCIZ 
31S ON THE STACK 


907 168 104411 SDB2D: SAVREG ;;SAVE REGISTERS 
164 016602 MOV 2(SP), Re ::PICKUP THE DATA POINTER 
907120 012700 007342 MOV aSDECVL, RO 2:GET ADDRESS OF “S$DECVL™ STRING 
174 510066 MOV RO, 2(SP) 2: PUT ROORESS OF ASCIZ STRING ON STACK. 
012201 (R2)+,R1 ::PICKUP THE BINARY NUMBER 
Oleebe MOV (Re)+-Re 
Ole7b? 900012 oOdd4E MOV #10. 45 +;SET UP TO DO 10 CONVERSIONS 
OO7el2 012704 007272 MOV eSTNPWR, RY ;sRDDRESS OF TEN POWER 
Ol 007274 MOV sSTNPWRS2, RS 
1S: CLR R3 ;CLEAR PARTIAL 
16140} 2s SUE (BY), ::SUBTRACT TEN POWER 
61502 Sus (RS) Re 
BLT 3 ;;BR_IF TEN POWER TO LARGE 
INC 3 ::ADD 1 TO PARTIAL 
BR 2s ;;LOOP 
38: D0 (B4)+, RI ::RESTORE SUBTRACTED VALUE 
ADD (R4)+, 
CMP (RS)4° (RS)+ ;;MOVE TO NEXT TEN POWER 
000080 BIS #’0,R3 *:CHANGE PARTIAL TO ASCII 
eye tROD+ A IT 


4$: 


a" 
& gauss 


;;BR_IF NO 

33 TERMINATOR 
ss;RESTORE REGISTERS 
ee URN 


jo KX) 
~ 


STNPUR: 


Soe eP eR eP RRR ILI iG RESR PRR Ga deta tau 
: 


ore Ee au ie 
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DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 


000144 
pols 
] 
900014 


e 


2323 


een ae ee ee re = ee nO ny cn ne SS OE 


UIUC 


he a 3;1.0€0e 
le 331.001 
i ;;1.0€00 
SOECVL: .BLKB + RESERVE STORAGE FOR ASCIZ STRING 


12. 
.SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 


5p REAR EERE REA E EEE EE EEE REEE REE EE SEER AEE EEE ESE EEE EEE EE EEE EE 
SETHIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
ey alae DECIMAL ASCIZ NUMBER. 


} 
’ 


: MOV NUMBER, -(SP) | ;;PUT BINARY NUMBER ON THE STACK 
* ISR PC, a8$$820 3 
Le RETURN ::ADDRESS OF THE IST ASCIZ CHAR.IS ON THE STACK 
$S82D: MOV 2(SP).1$ ;;SAVE_BINARY NUMBER 

MOV 815,-(SP) ::SET POINTER 

JSR PC, aeSDB20 3;CALL DOUBLE LENGTH CONVERT 

ADD #5, (SP) *:ONLY ALLOW FIVE CHARACTERS 

MOV (SP)+,2¢SP) >:PICKUP POINTER 

RTS PC ; sRETURN 
15: .WORD 0.0 
.SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS 


5p REE RR EEE SEERA AER EE EEE EER EERE EERE EEE EER ERR EE LE EEE EEE EES 
: THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE 
;#LEADING NUMBERS. 


* MOV SNUMADR,-(SP)  ;;FIRST ADDRESS OF ASCIZ STRING 
3% JSR PC, a8SSUPRS : 
SSUPRS: MOV RO, -(SP) ss RO 
MOV 4($P) RO ste THE POINTER 
1$: TSTB (RO) 3; TERMINATECR? 
BEQ 3B IF YES 
CHPB sé’, (RO)+ 31S THIS AN ASCII “0” ? 
BEQ 1$ ::BR IF YES 
2s: DEC RO > ;BACKUP BY "1" 
'. MOV RO, 3$ 33 FOR TYPING 
TYPE 3360 
38: .WORD O 3:ASCIZ POINTER GOES HERE 
- "MOV (SP)+,RO REST 
nov (SP)+, (SP) 3 T THE STACK 
RTS a3 
.SBTTL READ AN OCTAL NUMBER FROMTHE TTY 


£  EELKALELELSLELELAAE SARE RLARELERRLALAAARRAKLAAALARRAEREAREAERLAES 


* &THIS ROUTINE WILL. READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
le IT 70 8 x 
:# «-RDOCT ssREAD AN OCTAL 


+3 NUMBER 
;;LOW ORDER BITS ARE ON TOP OF THE STACK 








READ AN OCTAL NUMBER FROM THE TTY 


Pt e\ij- = v ( ) gs- - ‘4% 
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DZTAEB. Pil 
e372 3% ;;HIGH ORDER BITS ARE IN SHIOCT 
gad Oi 646 $RDOCT: MOV (SP), =(SP) s;PROVIDE SPACE FOR THE 
16686 009004 oD0002 MOV 4(SP}. 2(SP) +: INPUT NUMBER 
2976 O07462 010046 V RO, -(SP) ;;PUSH RO ON STACK 
77 bored gt 4 v R1,-(SP) ::PUSH RI ON STACK 
l MOV Re, -(SP) oe Re ON STACK 
2979 007470 104407 1S: ROLIN *:READ AN ASCIZ LINE 
380 Pts 612600 MOV (SP)+,RO *:GET ADDRESS OF 1ST CHARACTER 
1 74 1 CLR R1 CLEAR DATA WORD 
2982 007476 Oo0S002 CLR Re 
e383 po7S00 2s: MOVB  (RO)+,-(SP) s PICKUP THIS CHARACTER 
141 BEQ 3$ 3 IF ZERO OUT 
Seep SOVEDE boeibE ROL OR aoe 
ca8 1 poe iee ASL Rl 33345 
2988 le 006102 ROL Re 
238g 14 ppesns ASL RI 3;%8 
2990 007516 0061 ROL Re 
306] 042716 177770 BIC #1C7, (SP) s;STRIP THE ASCII JUNK 
ecse 062601 ADD (SP)+,R1 *:ROD IN THIS DIGIT 
2333 000764 BR 2s 33l 
eae! O05 766 38: TST (SP)+ *:CLEAN TERMINATOR FROM STACK 
Soap eS aeecsttd MOV Oat SH oeT ‘pathic indoemiae 
2997 ieee pt oeRS MOV (SP)+,Re ;;POP STACK INTO Re 
2998 007544 012601 MOV (SP)+-R1 *:POP STACK INTO RI 
2999 007546 012600 MOV (SP)+,RO ::POP STACK INTO RO 
| 3000 907550 o00002 RTI : RET 
| 3001 07552 990000 SHIOCT: .WORD 0 *:HIGH ORDER BITS GO HERE 


nn ee em nee | ee es cme — ee + 
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OZTAEB.Pil READ AN OCTAL NUMBER FROM THE TTY 


anne © RXKEKKRFASLS HARE AAAKEERERALAERALAA ARAL SS RAKES SERELALLFSLELS 
*aBTTL ROUTINE TO TYPE DRIVE 
3004 
;CALL 
: JSR PC, aSTPDRV 
3008 : 
3009 
sie fovea iarse onieLS me a SHARK (SP) ‘DI CKUP THE DRIVE NunBER 
sie poseea bi3¢7e 172776 BIC afc, (SP) : i STRIP ANY JUNK 
si ieee 1 Bppdee MOV (cps 4. i$ OWE HT B36 FOR 12 oeour 
3015 007600 104400 TYPE ‘TYPE IT 
3016 007602 007606 1$ . 
3017 OO7604 000207 RTS PC 
3018 007606 o00000 13: .WORD 0 
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—8 
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-- 

RB 
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5 RAR HEAEE ARSE EAE EAE HEE HE HEHE RE EERE EERE EEE EE EE 
ROUTINE TO ASK THE OPERATOR WHAT DRIVE(S) TO TEST 


.SBTTL 
; CALL 


PC, d#ASKORV 


MSGDRV 
ORVKEY 
(SP)+,RO 
aRO 


NOTL 
#ORVKEY, Ri 
8A, JRO 


NOT 
(RO)+, (R1)+ 
NEXT 

4°, ORO 
(RO)+, (RL)+ 
NEX 





;NOTE: RO AND R1 ARE DESTROYED 


;<CRLF>"DRIVE(S)? ” 


2g 
I 


& 
TO 


WAS A DR 
F NO 


VE 
CHECK FOR VALID DRIVE(S) 
IVE SELECTED? 


;WAS DRIVE “A” SELECTED? 
BR IF NO 

SET KEY FOR DRIVE “A” 
;HAS DRIVE "B” SELECTED? 
*SET KEY FOR DRIVE “B” 
WAS A COMMA TYPED? 


Te eeweweeweweses ee 








| GO6 \ 
BotmeBRAR RELIAGILITY — PSNTRE Sh REK THE opeRaYOR Anat cAYcecss rocrest [1tt7 PAGE ve 

























3055 HH RERKAAASRLEAEREKKLSAREASAARLAAEASRARELHAKRERALALS ELA AES EAAAELELS 
3358 - BRTTL ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND FRIORITY 
3058 :JSR PC, d#ASKADR 
3069 010046 ASKAL®: MOV RO,-(SP) : SAVE 
3061 Boo78e 104400 013326 15: TYPE. ,MSGASK 2" TACs?” 
3062 007726 104410 RDOCT ‘GET VALUE 
3063 007730 Sie600 MOV (SP)+,RO PICK UP THE OCTAL NUMBER 
q 1411 BEQ 33 IF “O" USE OLD VALUES 
3065 007734 O20027 160000 cH RO, #160000 *MAKE SURE IT IS A BUS ADDRESS 
ae oorrae r 91240 v RO, J#TACSL sSAVE THE TACS 
5 MOV. RD JETADBL SWE TY ee 
yi irre ite Ew, Pe att ao 
3071 104410 RDOCT 
3072 007764 012600 MOV (SP)+,RO 
ra OTe ae 001000 Bee RO, #1000 MAKE SURE ADDRESS IS IN VECTOR AREA 
3075 007774 103370 BHIS : . 
207 ne nea Soubas HOV RO, sTAVEC sSAVE AS VECTOR ADDRESS 
3078 O10006 O01 1246 MOV RO. d8TAVEC+2 
3079 g1001e 104400 013346 cs: TYPE ,MSGPRI sASK FOR PRIORITY 
3080 O10016 104410 RDOCT 
3081 O1 012600 (SP)+,RO 
3082 0100e2 001413 BEQ 65 sIF “O" USE OLD VALUE 
3083 0100204 O20027 000007 CMP RO, 87 *MAKE SURE ITS VALID 
ee pS stene nny She BS PUT INTO HIGH BYTE 
taeacet « 
3086 steed 006200 ASR RO 3AND SHIFT 
3087 010036 ASR RO INTO PROPER 
3088 O10049 ASR RO :POSITION 
3089 010042 177437 BIC #¢C<340> RO *SAVE ONLY PRIORITY BITS 
3090 10046 010037 001250 MOV RO, J8TAPRIO j STORE IT AWAY 
231 1 1bso0 13361 6S: TYPE mtacs -TACS=" 
10056 016746 171156 MOV TACSL, -(SP) ;;SAVE TACSL FOR TYPEOUT 
3033 1 1 TYPOC 3360 TYPE=-OCTAL ASCII(ALL DIGITS) 
1 i 013370 TYPE MTADB -*TADB= 
3095 : 16 171146 HOY TADBL, -(SP) $3 SAVE TADBL FOR TYPEOUT Hg eee 
ae ft 1 013377 T MTAVEC He NS Tone 
208 6101 01674% 171136 MOV TAVEC, -(SP) 33 SAVE TAVEC FOR OUT 
10106 104401 TYPOC G0 TYPE--OCTAL ASCII(ALL DIGITS) 
ain Se ‘ Cane reste nove taPRIO. (SP) therto FOR TY OUT 

aif ste 104401 TYPOC ’ $335 FPR OCTAL ASCII(ALL DIGITS) 

3103 O10le2 1 013425 TYPE ,MSGOK "0K?" 

3104 101 ROCHR *GO READ GNE CHARACTER 

1 101 1 MOV (SP)4+,RO GET IT 

3108 104 000015 _ CMP #15,R0 1S IT "CR"? 

zi 101 : BEQ ? BRANCH IF YES 

108 104 000131 CMP #’Y,RO 71S IT “y"? 

3108 010144 001403 BEQ s ‘TT WAS 

2110 O10146 ! 001202 TYPE  ,$QUES : ? 






yo ae ee 


| 
| 
| 
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| OZTREB.P11 ROUTINE TO INPUT sR. DBR, AND VECTOR ADDRESS AND PRIORITY 


111 010152 000663 te 1$ ;AND LET HIM CORRECT THEM 
ll2 010154 104400 013432 7$: TYPE MYES j TYPE OUT “YES” 
13 b15169 012600 MOV {sPy+, RO SRESTORE RO 


| 3 
| 3 
>. 
| 3 000207 RTS !A@ND RETURN 
! 


ey 





TALL 
OZTREB.Pil 

3115 
3116 
3117 

118 

113 

120 
3lel 
3l22 
ais: 

124 
3125 atthe 
2ie6 0101 
atee ptpise 
Tees 
3130 010204 
3131 010210 
3132 0102le 
3133 010214 
3134 010216 
sie pices eee 
3137 biosso 
eS teed 
3180 bigeue 
3141 010250 
3142 010eS2 
3143 910254 
3144 016260 
3145S 010262 
21468 010266 
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ROUTINE TO INPUT CSR,DBR, AND VECTOR ADDRESS AND PRIORITY 


170700 
170670 

















I06 


5s RRRAAARARAFARLE LALLA ER LALA RAL ERE LE RAL ALL LE ALAE RAE LERE SRLS ESL LES 


*SBTTL ROUTINE TO EXAMINE DRIVE(S) FOR AVAILABLITY 

;CALL: 

: MOV #ORVKEY, RO 

: JSR PC, J8EXAM *R1 IS DESTROYED 

: NORMAL RETURN 

: ERROR RETURN 

EXAM: MOV DSTACSL,R1 sPICKUP THE “CONTROL & STATUS” REG. ADR. 
CLR ( *DRIVE="A”, FUNCTION="WFG" 
CMPB s«# A, (RO) *EXAMINE DRIVE “A”? 
Bred BR de “Br 

5 #UNIT, (RL) SELECT DRIVE “B 

1S: BIT WREADY, (RI) *WAIT ON READY 
TST (R1) sANY ERROR? 
BPL 4§ *BR IF NO 
BIT #OFFLINE, (R1) *ERROR DUE TO “OFF LINE”? 
BNE *BR IF YES 
BIT #WRTLOCK, (RL) ERROR DUE TO “WRITE LOCK"? 
BEQ 2s BR IF NO 
CMPB #BIT07!BITOO,aSWR *"READONLY” SELECTED? (RDIPAS) 
BEQ 4 *BR IF YES 
CMPB  sBITO7!BITO1!BITOO,ISWR ;(RDEPAS)? 
BEQ 4§ *BR IF YES 
BR 3 :TAKE THE ERROR EXIT 

2s: BIT ALEADER, (RL) j ERROR DUE TO “CLEAR LEADER”? 


BNE ; 
3$: ADD #2, (SP) ; TAKE ERROR RETURN 
4$: RTS PC ;RETURN 
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OZTAEB.P1! TYPE ROUTINE 


3147 -SBTTL TYPE ROUTINE 








14 
ae H 5 RERRAEAA LALA RARLAA LAL ALLALL ALLEL REL ELK LE LERELAERELAAFL ARAL REEE 
3150 :#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINAT WITH A O BYTE. 
18 #THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
152 ¥NOTEL: SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
3153 + #NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
sist j #NOTES: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 
3156 CALL: 
3157 #1) USING A TRAP INSTRUCTION 
158 te TYPE , MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
3160 + TYPE 
3161 +# MESADR 
sie5 a 
164 010270 105767 170663 $TYPE: TSTB  $TPFLG 31S THERE A TERMINAL? 
atte Bt oSM 1 BPL 1$ 3BR IF YE 
3166 010276 000000 HALT *:HALT HERE IF NO TERMINAL 
3167 o D300 3$ ; ;LEAVE 
31Pg Bioacs Giveos cooo02 ws Nov. -Setsps Ro + eT ARDRESS OF ASCIZ STRING 
3170 g10319 Le0ub 2s MOVB (RO)+,-(SP) $ BGH CHORRRTER TO ie PYEED ONTO STACK 
3171 01931 I BNE 4§ *:BR IF IT ISN’T THE TERMINATOR 
3172 010314 005726 TST (SP)+ 3: IF TERMINATOR POP IT OFF THE STACK 
3173 010316 012600 60$: MOV (SP)+, RO *:REST 
3174 010320 062716 ocoo00e2 38: ADD #2, (SP) :ADJUST RETURN PC 
3175 910324 o0000¢ RTI : RETURN 
3176 010326 122716 O00011 4§: CMPB ss #HT, (SP) BRANCH IF <HT> 
3177 010332 001430 BEQ 8 
3178 010334 122716 o00200 CMPB —sBCRLF’, (SP) ;;BRANCH IF NOT <CRLF> 
3173 big34g 1006 BNE § 
180 O1034¢ TST (SP)+ ;;POP_ <CR><LF> EQUIV 
3181 010344 104400 TYPE >: TYPE A CR AND LF ’ 
ates ite rising 000130 SCR CHARCNT CLEAR CHARACTER COUNT 
3t84 snes ER a, NEXT CHARACTER 
3185 010356 004767 oD00S6 S$: ISR PC, STYPEC *:GO TYPE THIS CHARACTER 
3186 0103be 126706 170570 6S: CMPB 40s SFILLC,(SP)+ 3:15 IT TIME FOR FILLER CHARS.? 
3187 010366 O01 BNE 2g 3 IF NO GO GET NEXT CHAR. 
3188 010370 016746 170560 MOV S$NULL,-(SP) *:GET @ OF FILLER CHARS. NEEDED 
3189 >:AND THE NULL CHAR. 
3190 g10374 000001 7$: DECB s«A SP) *:DOES A NULL NEED TO BE TYPED? 
3191 O10400 BLT 6$ *:BR IF NO--GO POP THE NULL OFF OF STACK 
3192 O104C2 004767 000032 ISR PC, STYPEC °:G0 TYPE A NULL 
3193 O10406 105367 000072 DECB SCHARCNT *:D0 NOT COUNT AS A COUNT 
318% O104le BR 7$ 3; LOOP 
3195 
3136 sHORIZONTAL TAB PROCESSOR 
3198 010414 112716 000040 8S: MOVE = w#”-—, (SP) ;;REPLACE TAB WITH SPACE 
3193 bide) 767 000014 9$: ISR pc, STvPEC >: TYPE A SPACE 
1 132767 000007 oo00s2 BITB #7, SCHARCNT BRANCH IF NOT AT 
3201 010432 001372 BNE gg es 
2202 010434 005726 TST (SP)+ ;;POP SPACE OFF STACK 
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Bk 23 GET NEXT CHARACTER 
STYPEC: STB aSTPS ::WAIT UNTIL PRINTER IS READY 
MOVB a5 aSTPB ;;LOAD CHAR TC BE TYPED INTO DATA REG. 
CMPB acR, etsp) °1S CHARACTER A CARRIAGE RETURN? 
BNE : BRAN CH if NO 
LRB stuarcNT Hh a AR CHARACTER COUNT 
BR STYPEX EXIT 
oooc02 1S: CMPB su WLF, (SP) 21S CHARACTER <f LINE FEED? 
inc ins eet TT FiBRAC 
SCHARCNT. GORD 0 + ARR itt crea oFBrace 


STYPEX: RTS PC 
-SBTTL TTY INPUT ROUTINE 
Ba sear Wert oS 


* ENABL 
© LEAR KALAREERRAE AES EAAARREKA LARA A HEA AA ALLEL A LAER EAALERAKAZKKKEE 
SWITCH REGISTER CHANGE ROU 


fe UTINE IS ENTERED FROM THE TRAP HANDLER WILL 
LEUKEN OPERAT THE TEST FOR CHANGE IN SOFTWARE aul tcH REGISTER TRAP CALL 


TING IN TTY FLAG MODE. 
éCKSHR #SWREG, SWR 331S THE SOFT-SWR SELECTED? 
15$ ; ;BRANCH IF _NO 
TSTB =: JSTKS CHAR THERE? 
15S itTF NO, DON’T WAIT AROUND 
MOVB  9$TKB,-(SP) VE THE CHAR 
BIC $tC17?, (SP) i STRIP-OFF THE ASCII 
ten a A 
CMPB =: $AUTOB, #1 tt oRe TRUNNING IN AUTO-MODE? 
BEG 15S ::BRANCH IF YES 
TYPE  ,SCNTLG sr ECHO THE CONTROL-G (4G) 
SGTSWR: TYPE SMSWR TYPE CURRENT CONTENTS 
OV SWREG, -(SP) SAVE SWREG F 
TYPOC $60 TYPE--OCTAL ASCII(ALL DIGITS) 
TYPE  ,SMNEW :PROMPT FOR NEW SWR 
195: CLR “(SP) CLEAR COUNTER 
CLR -(5P) 3}; THE NEW SUR 
73: TSTB = ASTKS ::CHAR THERE? 
L 33IF NOT TRY AGAIN 
MOVB  aSTKB PICK UP CHAR 
BIC aicir?, ce :MAKE IT 7-BIT ASCII 
9S: CMP’ ss (SP), #25 1S IT A CONTROL-U? 
BNE > BRANCH IF 
TYPE SCNTLU 2 YES, ECHO CONTROL =U tu) 
20$: ADD 6, SP IGNORE PREVIOUS INP 
BR 19$ s:LET’S TRY IT HeAIN 
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Pil 


3264 O106S4 
sees pltees 
l 
1 

Seog para 
3270 teats 
2a hire 
3273 Stove 
sera tres 
37s 910730 
3277 010736 
3278 010742 
3273 010744 
3280 010746 
3281 Stites 
3283 Bibees 
3e8S 010764 
3286 010770 
3287 
3288 
32893 
3230 
3291 
3232 
3233 
3294 
3239S 
2295 
3297 
3°99 eee 
3300 0611002 
3301 011006 
3302 011010 
3303 O11016 
3304 011024 
3305 011032 
3306 O11034 
3307 011040 
3308 01104e 
32039 O11046 
3310 pi itee 

ll 11056 
sie Oli0e9 
sig Olitee 


1627 
ee 
Borat 


016677 


RpRBSeS ER 
ey 


S 


8 
apace 


eee 


ue 


3 


sets 


z 
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050015 
000004 
000002 


1 
170237 
000100 


177See 
000060 


000067 
000060 
000002 


000002 
177776 


001202 


170256 


000001 
170234 


000140 


108: 


178: 


18$: 
. OSABL 
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LSB 


(SP), #15 
16$ 
4(SP) 


2(SP),aSWR 
#6, SP 


CRLF 
SINTAG, #1 
#100, ISTKS 


PC, STYPEC 
SP), #60 


(SB), 967 


#60, (SP)+ 
SP) 


wee 


(SP) 
e(SP), (SP) 


$QUES 
Os 
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3515 sa A, dy 
; BRANC 


Bano dae FIRST CHAR? 
tt NEW SHR 


- SAVE 
i ER ee) AND «LE 
RE-ENABLE a «aD. INTERRUPTS? 
sr BRAN H IF NOT 
j $RE-ENABLE TTY KBD INTERRUPTS 
36 HO CHAR 
HAR < 
; BRANCH f YES 


F ASCII 
THE FIRST CHAR 


x 
tETYPE ?<CRD<LFD 
::SIMULATE CONTROL-U 


Dae ge get ag gp tg ge hs a 
ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


He 
xCALL 


3$: 


ROCHR 
RETURN HERE 

: MOV (SP), -(SP) 
MOV 4(SP) ,2(SP) 
TSTB =: AS TKS 
BPL 1$ 
MOVB  a$TKB,4(SP) 
BIC #104177), 4( 
CMP 4(SP), #23 
BNE 3$ 
TSTB = AS TKS 
BPL 2s 
MOVB  a$TKB,-(SP) 
BIC ##C177, (SP) 
CMP P)+, kal 
BNE 
BR 1$ 
CMP 4(SP), #140 
BLT ug 


s INPUT A SINGLE CHARACTER FROM THE TTY 
S:CHARACTER IS ON THE STACK 
;;WITH PARITY BIT STRIPPED OFF 


TY 
JUNK IF ANY 
A eoya.-st 


. ped . 
Wrst 
DUM MW 


ze” 
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2T ll TTY INPUT ROUTINE 

3315 911072 026627 000004 “000175 CHP H(SP) , #175 3318 IT A SPECIAL CHAR? 

3312 1110 pye7 ee oo0040 oo0co4 us BIC #40, 4(SP) 5 sRAKE i UPPER CASE 

33193 SS EHEEEEEREEEEEEIEEEEREEEEREEG EES EEESEEEAATEEERERELEEEREREEEE 
$320 sRTHIS ROUTINE WILL INPUT A STRING FROM THE TTY 

3322 +" RDLIN 53 INPUT A STRING FROM THE TTY 

3323 1% RETURN HERE *:ADDRESS OF FIRST CHARACTER NuTuL BE ON THE STACK 
ae x ;; TERMINATOR WILL BE A BYTE OF ALL 0’S 
3326 O11112 010346 SRDLIN: MOV ;;SAVE _R3 ; 

3327 011114 012703 011220 1$: MOV Rae eh, R3 2:GET ADDRESS 

3328 011120 022703 011230 2S: CMP #STTYINGS. ,R3 sere FULL? 

3328 Oi1ics 191405 BLOS 4§ IE YES 

11126 104 ROCHR :?G0 READ ONE CHARACTER FROM THE TTY 

3331 011130 112613 MOVB  (SP)+, (R3) 160, CHARACTER 

3338 011132 122713 000177 10$: CMPB #177, (R3) 21S IT A RUBOUT 

011136 001003 BNE 3$ bi SKIP IF NO 

gear Oty boores eee et Ne | ee | wee TERME BUFFER AND LOOP 

3336 O11146 111367 ocOno44 3S: MOVB  (R3),98 ECHO THE CHARACTER 

3337 011152 104400 Olieis TYPE 

3338 011156 122723 000015 CMPB 3s 5, (R3)+ ;;CHECK FOR RETURN 

3339 O13162 001356 BNE § LOOP IF NOT RETURN 

3340. 011164 105063 177777 CLRB = - 1(R3) CLEAR RETURN (THE 1S) 

3341 011170 104400 TYPE :: TYPE A LINE FEED 

3342 011174 012602 MOV SP)+,R3 > :RESTORE R3 

3343 011176 O11646 MOV (SP) ,-(SP) } ADJUST THE STACK AND PUT ADDRESS OF THE 
3344 011200 O16666 ono0004 coDo02 MOV 4(SP} 2(SP) He FIRST ASCII CHARACTER ON IT 
3345 0112068 Ol2e766 O:1220 o00004 MOV aSTTYIN, 4(SP) 

324 011214 000002 RTI RETURN 

3347 Oitelg 990 9S: ‘ VTE 9 ets, FOR ASCII CHAR. TO TYPE 
3349 Olle20 on0010 STTYIN: .BLKB 8. ;;RESERVE 8 BYTES FOR TTY INPUT 

3350 011230 052536 o0s015 000 SCNTLU: :ASCIZ /#u/<15><12>  };CONTROL ” 

3351 011235 136 06507 OCOODl2 SCNTLG: .ASCIZ /tG/<15><le> / FECONTROL — 

3352 Olled¥2 o00S01S (S3523 O20l22 SMSWR: .ASCIZ <15><1l2>/SWR = 

3353 011250 020075 000 

3354 011253 040 047040 OS3S0S SMNEW: .ASCIZ / NEW = / 

335¢ O11260 936440 00040 
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~SBTTL BiNARY TO OCTAL (ASCII) AND TYPE 


eet catia te ase te facea ik tae kee neon te a 
TO_ CHANGE 19 16-BIT BINARY NUMBER TO A 6-DIGIT 
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Is 


PEER RRS 


One 
ere 
Ba 


= 


SRS 


BaaRe 


ere 


to 
<tr 
ass 
oc 


‘7 + 7 
2 


SRes 


82 


RUMBER AND TYP 


POS~--ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
;;NUMBER TO BE_TYPED 
s3CRLL FOR TYPEOUT 

N=1 TO & FOR NUMBER OF DIGITS TO TYPE 


;L=TYPE LEADING ZEROS 
tt O2SUPPRESS LEADING ZEROS 


; *STYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ya OR STYPOC 


NUM, -(SP) 


NUM, -(SP) 


NUM, -(SP) 


i 
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;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


;# . 
enroc—ce HERE FOR SYPEOUT OF A 16 BIT NUMBER 


;;NUMBER TO BE TYPED 
;;CALL FOR TYPEOUT 


TUL 
Le) Zen OF DIGITS TO TYPE 
;;ADJUST RETURN ADDRESS 


SET THE ZERO FILL SWITCH 
FT FOR SIX(6) DIGITS 
ae ITERATION COUNT 


Hieave ir Ii 4 MAX. ALLOWED 
ZERO VILL re 


G0 DO MSB 
+ FORM THIS DIGIT 


mye er 








tAINDEC-11-O2TRE-8 
C C 


TALL DATA RELIABILITY _MAIND 
OZTREB. PL BINARY TO OCTAL (ASCII) AND TYPE 
3412 011426 905204 4$: INC 
S413 011430 Bs2903 900080 B15 
14 11434 052703 000040 ss: B15 
SIS OlIvI 110367 goo04D move, 
3416 11444 109400 011504 . TYPE 
B41? O11450 105367 000032 7$: -DECB 
3418 011454 903347 Sct 
3413 0146s Goedde BLT 
3420 11460 INC 
3421 O11462 50744 BR 
Sze O114ey Ol260s BS: My 
S454 Gl1aeS O1Se03 MOV 
Se5 Gliu7e Olge 000002 000004 MOV 
3426 011500 012616 MOV 
3427 011502 00002 RTI 
3428 011504 000 8$: BYTE 
329 011505 000 :BYTE 
3430 011506 000 SOCNT: ‘BYTE 
3431 011507 000 SOFILL: BYTE 
3432 011510 900000 SOMOCE: ‘WORD 





uw 
o~- 
" @& 


i i i ooo 
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;;DON'’T_ SUPPRESS ANYMORE O°S - 
;;MAKE THIS DIGIT ASCII 
;;MAKE ASCII NOT ALREADY 


i SAVE FOR TYPING 
:G0 TYPE THIS DIGIT 


xz 
w 
4 
mw 
4 
© 
ry 
-—— 
te Loe] 
un 


N’T A BLANK 


STACK FOR RETURNING 


URN 
ORAGE FOR ASCII DIGIT 
OR TYPE ROUTINE 
UNTER 








ht RELIAOH ITY NAINDEC-11-D27RE-8 
AP DECODER 


Fix 
i 


gygygued 
Bigirigiginis z 


Q0O00000 


eisiicna innit ice ese ss eee s4 


é 


MACY11 27(732) 


-SSTTL TRAP DECODER 


:$7H 1s 
3#AND_U 


INDEX 


:#G0 TO THAT ROUTINE. 


STRAP: MOV 
MOV 
TST 


MOVE” 
ASL 


MOV 
RTS 


RO,-(SP) 
eS), RO 


(60), ‘po 
STRPAD(RO) ,RO 
RO 


-SBTTL TRAP TABLE 


ear TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 


Y THE “TRAP™ INSTRUCTION. 


: ROUTINE 


étrPaD: 





SAVREG ; 
Sresret ;;CALL= RESREC 


; ;CALL=GTSWR 
H ry ; CALL =CKSUR 
33 CALL=ROCHR 
;;CALL=ROLIN 

SEG 


33 CALL 
; CALL=SAVRE 


THE _L 
ty N 
; #OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
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Teo babe gb kl bb i gts a 
TINE WILL P THE “TR 


TRAP +4( 104404) 


TRAP+1 








TTY TYPEOUT ROUTINE 
YPE OCTAL NUMBER 


4 
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DZTAEB.P1L POWER DOWN AND UP ROUTINES 
20 .SBTTL PUWER DOWN AND UP ROUTINES 
size } Mat an eee oe ee eee 
a3 011562 012737 011726 oo00e4 bPuRBN: MOV #SILLUP, Q8PWRVEC ;;SET FOR FAST UP 
3475 011570 012737 000340 000026 MOV #340 DEPWRVEC+E 3 sBRIO:7 
a4 S11576 1 MOV ,- (SP) 2 RO ON STACK 
4 i t 146 HOV R1,-(5P) PUSH RI ON STACK 
S458 BIG BLOSHe HOV ORSP=48p> tT PueH RS ON STACK 
aie Oliei6 shea Hye’) SS EUEH Re ON STACK 
Sage pit 1 staat 167322 MOV aSWR, -(SP) ::PUSH @SWR ON STACK 
3483 011616 O1067 000110 MOV SP 35 SAVE SP 
Ea 1ibee 011634 900024 HOV SSPWRUP, JSPWRYEC’:;SET UP VECTOR 
3486 011632 000776 BR 2 :;HANG UP 
aie } nd Mie co ee eee a 
3490 011634 01 911726 oooge4 iP: MOV ILLUP, O8PWRVEC ;;SET FOR FAST DOWN 
33 ciIESe Bieri OR 53h tne, SP GET T LOOP FOR THE TTY 
3493 Olibse OoSeb7 aan 1S: Inc Sean Hua EOR THE INC 
Suse O11660 012677 167254 MOV (SP)+, 9SWR +: POP STACK INTO aSiR 
313% O11b6H Oieb0s MOV (5P)+°R5 *:POP STACK INTO RS 
a flies my fei} Hie reat I 
3499 Gliere piseas MOV (2p) 3h ;3;POP aT ACK int Fe 
3500 O11674 01260 MOV (SP)+°RI *:POP STACK INTO RI 
3501 011676 b1600 MOV (5P)4°RO 3}POP_ STACK INTO RO 
3502 14700 Oe? 37 011562 000024 MOV G#PWRVEC';;SET UP THE FOWER DOWN VECTOR 
3503 O11 l 000340 000026 MOV #340, J8PWRVEC+E ;:PRIG:7 
3504 011714 104400 TYPE sREPORT THE POWER FAILURE 
3505 S1i7i6 0117-34 SPWRMG: . SPOWER >;POWER FAIL MESSAGE POINTER 
3506 O11 012716 MOV (PC)+, (SP) *:RESTART AT SEOP 
3507 oli7es 104406 SPWRAD: giro SEOP * RESTART ADDRESS . 
3ep6 ope O11 SILLUP: HALT :;THE POWER UP SEQUENCE WAS STARTED 
set) Bites ssavre: 8° ‘ihe bP TRE GBC HERES OOMN WAS COMPLETE 
3512 011734 OOSOiS 047520 oO42527 SPOWER: .ASCIZ <15><1e>"POWER” °” 
13 01i742 o00l22 ie 


ee et ete er ene ae ee 


Beaee 
OO IOPUT 


t 


-4 


i 


- 
a 


44 


A 
oa 


NSeSa TORE SOBA MRODRC Rea NOO SS 


BSSS8S BSESES28 BS 


aeauR fe 
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POINTERS AND DATA FORNATS FOR ERRORS 


5p RRRRRR RHEE EEE AE EEEE EE ERE RARE REAR EE ER ALERT REE EERE EL EERE EEE EEE 
;DATA POINTERS 


DT1: -WORD SERRPC, SREGO, SREG2,BYTNUM, SGDDAT, $8DDAT, $GDADR, S8DADR, So 


OTe: -WORD SERRPC, SREGO, SREGC, STMPO, STMP2,O 
OT1G1: .WORD SERRPC,SREGO,SREG2, STNPO,O 


DT201: .WORD SERRPC,TACSL,O 
DTede: .WORD SERRPC,O 
;DATA FORMAT 


ON=0 = OCTAL_NUMBER 
ON=1  ;DECIMAL NUMBER 
OF 1: .BY ON 
‘BYTE BN 
.BYTE ODN 
ane 
: ON 
BYTE ON 
BYTE ON 
ae ae: 
-BYTE ON 
.BYTE ON 
“BYTE ON 














si 
uJ ok 
¢ ¢ 
oe 
ar $3 8 8 & ee ba ee z 
. = an | = 4 _ 4 oe ry a 
so : $$ & @ a og oe 5 & 
re an Dat ee ae en Soe be § £€§ x & 
S te 8 Fo. ale S 5 “ora fe FS 
td Boe te A ine Cy ie Get BR Betteod ae Bae. 
® @ & es of £ £ geese = & 4 & 
fp eg € BR 8B Be CPRR PF F FF Fo] 
ny} * 2 S & 
S: 5 Ne Bo eae Sean Sf bb we Oe 
> 0 .*) OOO oO Lo) oO oO 
‘a Pe Le ee eee ER ae dB bg ee 
i 2 ‘ see : é : : sg §€ 8 88484 §& 
e 2% Ee z 555 5 5&6 S&B && & 
-w - a 4 — ot 
ae oo Sema a ea ie mes = recneeeeys 86S oe : = go8 
=i 28 8 882 828 228 2 6 S88Z8R%e at Sa 28 248 288 
cu 339528 od ro w 
Bs Per ageat sy : = = = aN Sa ee Gee 
i Reape 2g SE a ES8ia Bee 


pe er = oe ee 
papenweecmermmmemerrene | 


Bd ad nd cd od ed Odd dg hh dd eh at ed ed 9 Od ed 0 ed PE OE ed HG eG BH ed OG me wd ed Od ed Ed ee i 
2QOOHOOWW0WWOWOWWWOWW0HBWW2IOIOOO0OOWW80O9000000000000000000O | 


sii 


TAL] DATA RELIABILITY 


DZTAEB.P11 


—— -- 4 








S 
a 5 
ty us e — fF 
Le « — > a 2 
a > oO on a 
rer) ra u. i oe 
nN 2 * 
- x = D4 4 be 
af oe & S S SN 
rv) —J a ii a a = ’ ' t, 
o0 a 
ii # a. ~ @ £ & # 
Ou « us - vr u) 7) e ua 
, & = = % = = @ = to 
On 4 rs ii re Ps - oe i & ~ 
wo ws b ro) 
« > , a ra 
ont u. = 8 3 oe 
~ ~ “~ ~ 
lige Ss ee 
Ss £ ° © © me 2 
BE DI . e & € e $$ § 8 
- = = - os ~ ~~ 6s s & & 
oS R a a a D a a 
=< = « « « « & B Paes g B 
} . e eo .s. 6s - — 
P+) ¢ we ee ay 
fa = o od = ae . 
ef & & 3 s  & 8 2 
4 (tv) a 


ASeIY nessaces 
5 1 02005 EN201: 


nae iad GE 
ae : res _ A 


= Z WatceaneGs EusetceiciSesteals EBs 
EI era ecenremereraesa 





RELIABILITY 


8 nd Od On od 9 4 paratatatatatatatetatatetetatatctetatatetatatatetetetat ete tetatetetateteteteteteteteteteteteterey 
QOOKBOHOHOO OOH OWOHWOWOOQOHOOGOOOOBOO08000000000000 


AA SAAAAA RAMA AANA RE RRARE RAMEE 





ai 


t 


Ta 
DZ 





GDDAT BDDAT 
RCOV’D/<15>< 12> 
BLOCK/ 






a Sea TOSSES SSRESRSE 


TAL] DATA RELIABILITY 


P 


bes 


1 


bh fw Pah 
WIG) 
PH 4 pe Bs 


CWIWIWWIWIWIGWIUWIL) 
ZNERLELARKSVSSS 


3 


epepresseepereee 
-~— 
£ 


SRE SEE ESS 


aE 
Oo 


OOOOOOOOOOOOOOOOOOOoOOOO0O0000000 
Oe be he Bae 0s he Ge Ge ae 0 Fae 2 Fe Fe Fae Fe ame fae fw fo Pe Fame fe Fo fw Pe He 


yee RRR area 


01 


5 





oozes 





052111 


= 
et 
ial 
e 
es 
042101 
fee 
Oeelit 
045517 


psustatah 


R 
_— 
-_ 
es 
~“ 


coisas! 


oe 
Zong 


002004 
015444 
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ASCII MESSAGES 


Die? 
036516 


@ Gest 


é 
| ame 
RR 


1 


ll 


- 


Ossi 
000 
oNese3 


000 MSG9; .ASC 
Me 





MSGS: _.ASCIZ 
MSG6:  .ASCIZ 
MSG7?:  .ASCIZ 


MSG8: .ASCIZ 


I 
Gid: :aAscI 
MSG11: .ASCIZ 


MSGl2: .ASCIZ 


- SBTTL 


BUFFER: .BLKB 
LASTADDRESS= 


-END 


MACYL1 27(732) 25-SEP-76 11:17 


<CRLF>"BYTES WRITTEN=" 
(CRLF>" TAPE PASSES=" 
<CRLF>"FILES/PASS=" 


<CRLF>"BLOCKS/FILE=" 


" WILL BE TESTED”<CRLF> 
“### FORMAT #2” 
"eee READ #2" 


“ee WRITE ##%” 

” DRIVE “ 
(CRLF>"DRIVE(S)? ™ 
<CRLF>"TACS?” 
«CRLF>"VECTOR?” 
<CRLF>"PRIORITY?” 
<CRLF>“TACS=" 

/ TAOB=/ 

" VECTOR=" 

“ PRIORITY=” 
<CRLF>"OK?" 
“YES”<CRLF> 

READ AND WRITE BUFFER 
1028 


PAGE 86 











TAl1 DATA RELIAB 3 


OZTREB.P1L 


RRRRS 
OOO 
Gees 


002012 


SeSsR eRe 
ee 


8 


4444 4 
ee eerereare: 
Wwe O 

i=] 
Be 


cee 


_—y 


aroused 


Se 


eee eee Ce ee ee De eee eee ean 
00 08 0 00 00 OF OO 08 08 00 08 08 Ot Ob 00 00 08 00 08 08 08 8 Oe Oe Oe 08 


“ 
vs] 


state) 

Hee 

=tad 
= 
tT 


5 REFERENCE tnaL 


1104 


~ 
Cad 
ee Te 


2 bbe 
+ $e 
tel 


BePSB eos neee sesnseeeESeS 


artettoratoteenenene 
DUP IS BO— Vw 


RPSL Bory 
N 
se s Ss 


bat ta 
HQ 


Pt hae ae bee pe fb he bee he fee pe hm poo 
SEEESE OOOOm ee 
Pape thet FU8So-nwsm 


AE- 
~ USER SYMBOL 


TD oh eee 
merinininininininty tt 
N HOH Lue soo 3 


MACY 





1655 


14928 


1681 
1719 


1719 
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1657 


1719 
3140 


3138 


2107 
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OZTAEB.Pil CROSS REFERENCE TABLE -- USER SYMBOLS 
nti? fg 1867 1996 27108 
CNTSF 4 1865 1994 soz 
CR = 00001 10308 3207 sel 
cre “ ite laa rue 7 7 S 3661 2664 3667 3670 3673 3677 
ypaue deeg SRG 3ELA RACES 3578 

CSRERR O0SS26 ier 1813 1826 1838 1849 1880 1952 1368 1979 2033 2080 2091 2105 
TOMP 0068 1862 1931 26448 

ISP = 70 10378 1204 1516 
DF 1 012026 13993 35378 
OFe 012036 1406 35468 
DH1 pie 1397 36168 
DH101 12724 i415 1421 1427 1433 1439 1445 1451 36418 
DHe2 012607 1403 36278 
DH201 012765 1463 36478 
DH202 013002 1468 36508 
piste 001142 1204e 1516% 1524% 2276%  2296% 

I 000174 11688 1524 
ON = 000001 35358 3538 3539 3sur 3547 3548 3549 3550 
DOFUN 007034 28108 
DRVKEY 001252 12468 1247 1483% 1621 1634 1685 3028*% 3033 3047 3051 
DRVPNT 001256 12478 1635% 1678 1686# 
DSWR = 177570 10368 1203 1515 
DTl aie 1398 35198 
DT101 12002 1416 1422 1428 1434 1440 1446 1452 35268 
DTe 011766 1405 35238 
OTe01 012014 1464 35¢98 
DTe0e Oleve2 1469 35318 
EMTVEC= 000030 112e5@ 1503%  1504% 
EM1 Ol2ee0 1396 35798 
EM101 QOl2246 1414 35838 
EM102 Qi2270 1420 35868 
EM103 gies 1426 35308 
mie eee Be 
EM106 pisses 1444 36008 
EmM107 012415 14580 36048 
EMe 012233 1402 35818 
EMe01 012437 1462 36088 
pe Bee = BS ane a ava 

2 oases S304 5408" 24178 

=] Shu 
ERRORT OOsSep sau Baras 
ERRvEcs posons ote eat 1514% Sos* 1580% 1586* 2264 2265* 2267% 2270% 
eee 10164 1238 l6e6 tei leSe 
EXIT 007710 3046 30518 
FGAP = 004000 11478 2440 
FG.ERR 006030 2458 24968 
FILE 001304 12578 617 1934 1943 2004 2021 2071 2119 2426 2474 2475 2481 2561 

ebe6 2628 50 2674 

FILESZ 001310 lebis 1890 2017 elis 2216 2476 
| 
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OZTAEB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 


F 1 2 essus 
deaar BOs1se je ai Hie ee 
FUNCTI= 000016 11598 e429 

ooocde 1 















ee 





e 
HEREEE U 1167 sv 8=63457—4S8 Oso 3459° S460 Ss S462 HEH HES 46GB 4670S SHES SHE 
000001 11588 
1539 30 
leese 2189 2710% 2711 
HT. = =: 0000 10288 3176 3217 
ILBS_ = tts 11548 
INT.EN= 0001 11528 
TOCOM 006750 77 e780 462782 0= 27840 sse786s—(‘i‘i7BBCiDs 7928 
IOTVEC= 000020 lle3# 1501% 1502 
Heer gies Ha 
UU 
ITEMS Boies Taos 2337 
LASTAD= 37168 





le368@ 1688% 2006  2476% 2477% 2485s 
1628 avace e004 e209 e47S%  2481% 






= 
pee ecess 





8 21 
MAXERR 2498 1690 
MAXRDS 24gs 1689 
MSGASK 013326 3061 36948 
MSGORV 015312 3027 36928 
MSGOK O14 3103 4 
MSGPRI 013346 3079-36988 
MSGVEC 013335 3070 36968 
MSGI 013005 2181 36518 
MSGIO 013201 1650 36778 
MSG11 Ol 3222 1785 a 
MSGl2 91304] 1935 36838 
MSGI3 013060 2063 3 
MSGI4 013277 2357 2379 
MSGIS 013302 3010 36908 
MSGe 013032 2183 36558 
MSG3 013050 2188 36588 
MSGH 013066 2193 36618 
MSGS 013103 21 pus 
mca 0131¢3 7% 
1314 i 
mSG8 131 2215 36738 
m5G9 013174 1647 3676 
MTACS 013361 3091 
MTADB 013370 3094 
NTRPRI OL3LL 3100 068 
MTAVEC O13 3097 it 
MXBSBG 012121 2401 35658 


: 
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DZTAEB.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 


eS-SEP-76 11:17 PAGE 91 






3 
7660 30393 
007702 3032 
OFFLIN= 001000 11498 2434 313 
OL.ERR 005672 2455 24638 
ON = 900000 35348 3537 3 3543 3544 3546 
PARMBK 001612 13648 1366 1641% 1643% J64S* 648" 682% 1797 1799 1808 1810 1821 1823 
1833 1835 1844 1846 1875 1877 1947 1949 1963 1965 1974 1976 2028 
2030 2075 2077 2086 2088 2100 2102 2179 2431 eSe8* 2593% 2678 3011 
PASCNT 001266 12518 1693% 1731% 
PATS 001352 12888 
PATO 001412 1288 13108 
PATI 001422 1289 13138 
PATIO 001532 1298 13408 
PATI1 001542 1299 13438 
PAT] 0015S2e 1300 1346 
PAT1 001562 1301 13498 
PAT14 001572 1302 13528 
PATIS 001602 1303 13558 
PAT2 001432 1290 13168 
PAT3 001442 1291 13198 
PATY 001452 1292 13228 
PATS 001462 1293 13258 
PATE 001472 1294 13288 
PAT7 001502 1295 13318 
PATS 001Sie 1296 13348 
PATS 001522 1297 13378 
PC =%000007 10498 1559% 
1788 1791# 
1936" 1s 
Siege 51805 
2213% 2217% 
e4B2% + 
2789 2731 
3192 3199% 
PIRGVES 00240 eer 
PRO = GO0000 tosee 
PR1 = 000040 10538 
PRe = 000100 1054s 
Pra = 900200 OSes 
PRS = 10578 
PRE = ane 10588 
PR7 = 000340 10598 
PS = 177776 10328 1033 
| 















TALL DATA RELIABILITY 
DZTAES.Pil 


PSCNTL 001270 
C= 

Y 1214 

= 104406 

RDLIN = 104407 

RDOCT = 104410 

ROTRYS poles? 


1691* 
1507% 
194 


MAINDEC-11-D2TAE-B 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1692% 


1721 


S474% 
es92% 


34678 
2003% 


1934 


MACY11 27(732) 


1724% 
3475% 


2694* 


1725% 
S4B4% 


cb9E* 


1726 
3490% 
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1728% 
3502% 


1729% 
3503% 


1732 









RE 
R7 


ary ve ty 


=%000000 


=”000001 


16 
34 


S3% 
eek 


2755% 
3496% 








ee ee ee 


TAL] DATA RELIABILITY 


bt 29 of of ot ot 


DZTAEB.P1l 
SAVREG= 104411 
SETUPR 006210 
SETUPW O06062 
SFBG 006742 
SFFG oie 
SOF TNM le 
=”000006 
STACK = 001100 
START  O02624 
STKLMT= 177774 
SUR 001140 
SWREG 000176 
SWO = 00000! 
SWOO = 000001 
SWOl = 000002 
SWO2 = 000004 
SWO3 = 000010 
SWO4 = 000020 
SWOS = 000040 
SWOB = 000100 
SWO7 = 000200 
SWOB = 
SWwOS = 001 
1 = 900002 
10 = 
3 = 
le = 010000 
13 @ 
te = 
= 
au 2 here 
SW3 = 000010 
cwH Os 
= 
= 
= 
Swe ls 


et ee ee eel 
SSeeeeerrrrre 
WOr-rwW WCU 
&BRREHKAHA BRE HS 





MAINDEC-11-02TAE-B 
CROSS REFERENCE TRBLE -- USER SYMBOLS 


2588s 
eSe3% 


2147 
e224 
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TALL DATA RELTABIL 


OZTAES.P11 
= 001000 


TAOSL 00 


2 
2 
6 
st 


ag 
eee 


2 
8 


a pT 


TYPOC = 104401 

TYPON = 104403 

UNIT : rete 

{ = 

WBYTTL 1 

ee Bevis 

WL. ERR feere 

WRITE 716 

WRITEO 132 

WRTLOC= 010000 

METPAS 1300 

MRTRYS 1226 

XBSBG = 10 

XBSFG = 

XREAD = 

Xerbe = SopniS 
= 

yore = pool 

XWFG = 

XWRITE= 

X. ERR 

SAUTOB 

$SO0R0R 


FE 
FER 


s 


SS 100 

= 
= 0 

= 

S 
SCNTLG 011235 


ee 
‘ on 


| 


MAINDEC-11-D2TRE-B MACY 
tdss REFERENCE TASLE -- USER SYMBOLS 


10788 


34598 


b= bah 
rue 
spaciae 
ee & 


me 
-_ 


2 
R 


PRee Shenae 


Sond sousne sugouesel 


frorororus— 


eter 


ES 


fyty 
ae 


2810% 
30&9*# 


1S97# 


1936 


1883# 


ee ee Seem. 
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DZTREB.Pil CROSS REFERENCE TABLE -- USER SYMBOLS 





SONTLU 011299 3255 39508 3 x P 
1 deere l&4e 1787 iSs7—_—_ 0B C(i (S(t CMA CEC (i ES 
eae O07 168 2195 cc 2366 2384 28748 2936 
oo in ee 
SENDAD 716 1$31 89S «1658 = ee 2314 
SENDCT 36 1509 21708 
SENONG 004735 6i’g eck4 
SENULL O0473e ee438 
SEOP O04406 1803 1814 \ 1827 1839 1850 1858 1869 1881 1953 199 1960 1987 1998 
eOs4 2081 ‘2092 e106 e146 e148 e2l6i8 2507 
SEOPCT 004430 1509# 21678 2171 
SERFLG 001103 11868 4 22e5]) e275% 2279 2294% 2319 
SERMAX 1115 11928 79 
SERROR 1S03 8 
SERRPC 001116 1193e «6e301l# e30e# 2303 e319 3519 3823 3826 3529 3531 
SERRTB O0l622 13848 \ 
ir mie = RE eB 
SFILLS 001155 1510s 3217 . 
SGDADR 001120 11948 2668# 3519 
SGDDAT 001124 11968 e665*  2667# 3519 
Hh 4 OOY44E 21738 q 
Ff 10560 72 se 
SHIOCT 0075Se 29%# 30018 
SICNT 001104 11878 
SILLUP te 3474 = 34900: 35098 
SINTAG 0011 12018 3267 3356 
SITENB 001114 119i8 1672 1673 2303% e320 e326 
SLF 001204 leese ec20 8 e32e0) 8 sel? 63341 8 3350 
see pot 106 iige 1Si0# 8 1764# 1819% 1934# 192% 19738 2062 2098% 2274# 2277 2279 
SMAIL = Or iess U i3e2 1s% e274 862309) 3170 
SMSWR 86Ollede 3539 x 
ce Be is, By 
11 bl 17# 34308 
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